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I.   INTRODUCTION 


This  report  is  the  third  in  a  series  of  five  volumes  comprising 
the  final  report  for  the  study  entitled  Evaluation  of  Flood  Risk  Factors 
in  the  Design  of  Highway  Stream  Crossings }    authorized  by  the  Federal 
Highway  Administration  (FHWA)  under  Contract  No.  DOT-FH-11 -7669.  The 
overall  objective  of  the  study  is  to  develop  an  engineering  systems 
analysis  technique  to  reduce  flood  damage  to  highway  stream  crossings  on 
a  sound,  probabilistic  basis  by  including  economic  risk  analysis  in  the 
hydraulic  and  hydrologic  design  of  bridge  waterways. 

Volume  III  is  a  description  of  the  application  of  the  Finite 
Element  Method  (FEM)  to  predict  the  backwaters  resulting  from  constric- 
tions of  highway  crossings  on  flood  plains.  The  FEM  is  adapted  for 
a  two-dimensional  computer  model  in  order  to  more  accurately  simulate  the 
complex  hydrodynamics  of  turbulent  flow.  The  model  simulation  has  been 
demonstrated  with  data  collected  in  a  series  of  experiments  using  a  large 
hydraulic  flume  with  artificial  large  scale  roughness  and  with  field  data 
gathered  by  the  U.S.  Geological  Survey  (USGS)  in  Mississippi.  The  results  of 
the  two-dimensional  Finite  Element  Model  using  the  field  data  for  the 
flood  risk  evaluation  are  described  in  Volume  IV,  Economic  Risk  Analysis 
for  Design  of  Bridge   Waterways . 


BACKGROUND 

Recent  field  verification  of  current  methods  for  backwater  predic- 
tion has  demonstrated  that  existing  methods  tend  to  underpredict  the 
magnitude  of  backwater  in  many  cases,  particularly  when  bridges  extend  over 


wide  valleys  with  heavily  vegetated  flood  plains.  In  recognition  of  this 
problem,  the  FHWA  directed  that  one  of  the  principal  objectives  of  this 
study  would  be  to  develop  an  improved  method  to  compute  backwater. 

An  effective  method  for  determining  backwater  is  the  use  of  results 
obtained  from  field  measurements  of  water  surface  elevation  at  various  bridge 
sites  during  flood  stage.  There  are  three  highway  planning  and  research 
(HP&R)  studies  in  Alabama,  Mississippi  and  Louisiana  in  which  the  USGS  is 
the  principal  investigator  collecting  field  data  at  various  bridge  sites 
in  these  states.  The  USGS  will  develop  design  recommendations  from  these 
data.  However,  the  extensive  time  and  effort  necessary  for  such  field  pro- 
grams is  a  practical  restriction  on  the  number  of  cases  to  be  observed. 
In  addition,  the  data  base  thus  gathered  is  probably  too  narrow  in  scope 
to  provide  a  wide  range  of  typical  prototype  conditions.  It  is  thus  impor- 
tant to  have  available  a  more  usable  and  accurate  method  for  determining 
the  optimum  bridge  opening  using  techniques  of  risk  analysis. 


STUDY  APPROACH 


The  approach  adopted  in  this  study  is  to: 

1.  Use  to  the  maximum  extent  possible  all  available  information 
and  data  related  to  the  bridge  backwater  problem, 

2.  Develop  otherwise  unavailable  data  from  hydraulic  experiments 
in  the  laboratory  to  determine  flow  characteristics  in  the 
vicinity  of  the  bridge  opening,  and 

3.  Use  all  data  acquired  in  (1)  and  (2)  to  develop  a  two- 
dimensional  mathematical  model  to  simulate  flood  plain 
flow  and  bridge  backwater.  This  computer  model  is  then 
verified  as  far  as  possible  by  field  data  obtained  from 
state  highway  agencies. 

In  other  words,  the  WRE  approach  is  to  maximize  the  use  of  existing  tech- 
nology to  model,  both  physically  and  mathematically,  the  prototype  behavior 
in  such  a  way  as  to  minimize  the  uncertainty  associated  with  bridge  waterway 


hydraulics.  It  is  not  only  uneconomical  but  practically  impossible  to 
physically  model  the  entire  river  reach  under  the  influence  of  bridge 
backwater,  mainly  due  to  the  wide  variation  in  the  width-depth  ratio 
existing  in  natural  streams.  A  physical  model,  however,  may  be  used 
with  confidence  to  study  the  flow  patterns  adjacent  to  the  bridge  opening, 
Away  from  the  opening,  the  flow  conditions  may  vary  markedly  from  site  to 
site,  depending  upon  the  variations  of  roughness  distribution  and  the 
topographic  features  of  the  stream.  It  is  this  area  which  the  physical 
model  is  not  able  to  reproduce  accurately  and  which  must  be  simulated  by 
other  means,  in  this  case  by  a  Finite  Element  Model.  The  use  of  this 
computer  model  may  be  further  expanded  once  the  model  is  verified  or 
calibrated. 


OBJECTIVES  AND  SCOPE  OF  THE  MODELING  EFFORT 

The  primary  objective  of  the  work  reported  here  is  to  develop 
a  mathematical  model  that  will  predict  the  water  surface  elevation 
within  the  stream  reach  affected  by  the  flow  constriction  of  highway 
approach  embankments  on  flood  plains.  The  model  incorporates  the 
two-dimensional  flow  characteristics  under  the  bridge  and  along  (or  over) 
the  embankments  and  channel  banks  during  low  flow  and  high  flow 
conditions.  The  model  will  give  accurate  results  to  be  used  as  a  tool 
in  an  economic  optimal  design  technique  for  highway  stream  crossings. 

The  scope  of  this  modeling  effort  is  to  apply  the  Finite  Element 
Method  of  numerical  analysis  to  the  two-dimensional  flow  eauations 
satisfying  the  prescribed  boundary  conditions.  The  model  is  applicable 
to  steady  state,  two-dimensional  and  subcritical  flow  conditions  in  open 
channel  flow.  The  spatial  variation  in  bottom  configuration,  roughness 
and  boundary  geometry  within  a  flow  region  are  considered  by  the  model. 
The  model  computes  the  velocity  components  on  the  horizontal  plane  and  the 
stage  at  various  points  throughout  the  flow  system.  The  model  is  coded 
in  FORTRAN  for  solution  by  digital  computer. 


II.   BRIDGE  BACKWATER  MODELS 


THE  BRIDGE  BACKWATER  PHENOMENON 

In  building  highways  across  wide  river  valleys,  it  is  common 
practice  to  extend  the  bridge  approach  embankments  onto  the  flood  plains. 
This  minimizes  construction  costs  by  minimizing  bridge  length,  since  unit 
length  of  earth  fill  costs  less  than  unit  length  of  bridge  structure. 
In  flood  conditions,  the  embankments  constrict  the  stream  flow  and  thus 
cause  an  energy  loss  through  the  contraction  and  expansion  phenomena  in 
addition  to  that  of  the  normal  channel  resistance.  Thus,  in  order  for 
the  flow  to  maintain  itself,  there  must  be  a  source  of  potential  energy 
upstream  from  the  bridge.  This  potential  energy  takes  the  form  of 
bridge  backwater. 

Laursen  (1)  has  divided  the  flow  region  affected  by  a  bridge 
constriction  into  four  zones,  as  shown  in  Figure  1.  According  to  conven- 
tional definitions  in  open-channel  hydraulics,  Zones  1  and  IV  are  areas 
of  gradually-varied  flow  in  which  the  flow  pattern  is  essentially  governed 
by  the  channel  resistance  and  Zones  II  and  III  are  areas  of  rapidly- 
varying  flow  patterns.  The  geometry  of  the  bridge  constriction  causes 
tne  flow  to  contract  upstream  and  expand  downstream  and  thus  determines 
the  flow  patterns  in  these  zones.  Boundaries  between  Zones  I  and  II  and 
Zones  III  and  IV  may  be  considered  transition  zones  wherein  the  channel 
resistance  and  the  constriction  geometry  play  equally  important  roles. 

Zone  I  is  the  reach  of  river  upstream  from,  but  not  immediately 
adjacent  to,  the  bridge.  It  covers  the  flow  region  encompassed  by  the 
length  of  the  classic  Mi  backwater  curve  and  the  width  of  flood  plain 
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in  which  flows  move  laterally  into  the  main  channel.  The  upper  boundary 
is  at  the  point  where  the  M2  curve  meets  the  normal  flow  profile. 

The  upper  boundary  of  Zone  II  is  just  upstream  from  the  bridge 
where  the  curvature  of  the  water  surface  starts  to  increase  rapidly  in 
the  vertical  plane.  This  zone  extends  through  the  bridge  to  the  section 
where  the  flow  contraction  ends.  The  flow  pattern  is  approximated  by 
the  irrotational  flow  theory  of  a  slot  orifice  with  a  free  streamline 
separating  from  the  abutment  at  the  end  of  the  embankment.  Thus  Zone  II 
characterizes  flow  contraction  and  jet  formation. 

Zone  III  is  the  region  in  which  the  jet  formed  by  the  contracting 
flow  of  Zone  II  is  expended  through  turbulent  diffusion  or  mixing.  A  large 
amount  of  energy  is  lost  in  the  course  of  flow  expansion.  If  the  channel 
resistance  in  Zone  III  is  substantial,  then  the  resultant  energy  loss 
associated  with  jet  diffusion  and  the  channel  resistance  may  produce  a  total 
loss  sufficient  to  cause  backwater  at  the  downstream  side  of  the  bridge 
opening.  Such  instances  have  been  reported  in  a  recent  USGS  report  (2). 

Zone  IV  may  be  considered  the  downstream  counterpart  of  Zone  I. 
In  this  reach  the  flow  leaves  the  main  channel  and  moves  laterally  across 
the  flood  plain.  At  some  distance  downstream  the  flow  will  be  reestab- 
lished and  resume  its  natural  flow  condition  in  the  stream. 


ONE-DIMENSIONAL  BACKWATER  MODELS 

Eichert  (3)  has  recently  published  the  results  of  a  survey  of 
programs  for  computing  water  surface  profiles  in  natural  channels.  The 
survey  covers  20  leading  water  resource  agencies,  including  federal  and 
state  agencies  and  several  academic  institutions.  Eleven  computer  models 
were  selected  for  comprehensive  review.  The  conclusions  of  the  review 
for  six  of  these  models  are  presented  in  Eichert' s  paper.  In  the  review 


the  eleven  models  were  compared  in  19  major  areas  of  computer  program 
capability.  All  of  the  models  are  one-dimensional  and  use  the  standard 
step  method  for  backwater  computation.  Most  of  the  models  were  developed 
for  subcritical  flow  only.  A  detailed  comparison  of  the  methods  of 
computing  energy  losses  through  bridge  flow  constriction  was  made  for 
all  eleven  models.  Only  five  calculate  those  energy  losses.  Of  these, 
one  program,  the  U.S.  Geological  Survey  model,  uses  the  Bureau  of  Public 
Roads  (4)  criteria  to  compute  the  bridge  backwater.  The  four  other  programs 
use  either  the  Bernoulli  equation,  the  Yarnell  energy  principles  (5), 
the  Koch  and  Carstanjen  momentum  theories  (6),  or  the  Kindsvater  method  (7) 
to  determine  the  changes  in  water  surface  elevation  through  the  bridge 
for  subcritical  flow. 

Eichert  and  Peters  (8)  describe  in  detail  a  procedure  for  determin- 
ing water  surface  profiles  through  bridge  structures.  This  method  is 
incorporated  by  the  U.S.  Army  Engineers  as  a  bridge  flow  routine  in  the 
Hydrologic  Engineering  Center  (HEC)  Program  on  Water  Surface  Profiles. 
The  procedure  uses  the  momentum  theory  under  low  flow  conditions  to  compute 
the  pier  losses;  and  the  contraction  and  expansion  losses  at  the  bridge 
are  evaluated  by  multiplying  a  loss  coefficient  times  the  absolute  differ- 
ence in  velocity  heads  inside  and  outside  of  the  bridge  constriction. 
Methods  for  determining  the  existence  of  pressure  flow,  weir  flow  and 
combinations  of  flow  conditions  passing  the  bridge  section  are  also  described 
in  the  Eichert  and  Peters  paper  (8).  While  the  method  may  be  adequate 
as  a  routine  for  determining  the  water  surface  profiles  through  bridges 
in  the  HEC  model  for  natural  channels,  it  may  not  be  accurate  enough  for 
bridge  waterway  design.  This  is  because  the  one-dimensional  method  assumes 
that  the  water  surface  profile  is  horizontal  across  the  stream  cross  section 
perpendicular  to  the  flow.  Furthermore,  with  this  method  it  is  not  possible 
to  compute  the  water  surface  profiles  through  skewed  or  eccentric  highway 
crossings. 


The  Bureau  of  Public  Roads  criteria  for  computing  bridge  backwater 
were  revised  and  reissued  in  1970  (9).  Included  in  the  new  issue  are 
revised  base  curves  for  the  backwater  coefficient,  USGS  field  data  for 
streams  with  large  width  to  depth  ratios,  and  material  on  partially 
inundated  superstructures,  proportioning  of  spur  dikes  at  bridge  abut- 
ments, and  supercritical  flow  under  a  bridge.  However,  the  single  most 
important  reason  for  revising  the  criteria  is  the  marked  discrepancy  of 
backwater  coefficient  base  curves  between  the  model  data  and  the  USGS 
field  data.  This  discrepancy  has  been  attributed  to  the  limited  range 
of  width  to  depth  ratios  under  which  the  model  data  were  obtained.  For 
longer  bridges  and  wider  flood  plains  the  model  data  were  entirely  inade- 
quate. A  comparison  of  model  data  and  field  data  reveals  that  for  contrac- 
tion ratios  less  than  0.55  the  model  curve  flattens  while  the  field  data 
show  a  rising  trend.  The  field  data,  however,  verified  the  model  base 
curves  for  contraction  ratios  between  0.55  to  1..0. 

Although  the  Bureau  of  Public  Roads  criteria  have  been  improved 
by  these  changes,  the  basic  approach  is  still  one-dimensional,  which 
ignores  the  variation  of  water  surface  elevation  in  the  transverse  direc- 
tion. In  the  computation  of  bridge  backwater  for  width  to  depth  ratios  as 
high  as  700,  the  one-dimensional  approximation  may  not  be  adequate  for 
design  purposes. 

The  complex  variations  in  natural  streams  coupled  with  varied 
types  of  highway  stream  crossings  found  in  the  field  make  it  difficult  to 
gather  sufficient  empirical  expressions  for  effective  implementation  of 
a  one-dimensional  model.  While  one-dimensional  methods  have  been  used  to 
predict  backwater  with  satisfactory  results  in  many  instances,  there 
is  still  a  need  in  highway  design  for  a  model  which  can  be  applied  in 
such  situations  as  multiple  bridges  across  main  channel  and  flood  plain, 
islands  or  other  obstructions  in  the  waterway,  meandering  streams,  skewed 
and  eccentric  crossings  and  the  nonuniform  distribution  of  vegetation  in 
the  stream  bed.  Such  a  need  has  recently  been  expressed  by  state  highway 


departments  (10).  A  feasible  solution  to  the  problem  of  wide  variations  in 
stream  characteristics  and  types  of  highway  crossings  is  the  application 
of  a  two-dimensional  mathematical  model. 


TWO-DIMENSIONAL  MODELS 

There  are  two  major  types  of  two-dimensional  models  which  are 
applicable  to  the  problem.  The  first  type  is  the  Finite  Difference  Models 
and  the  second  is  the  Finite  Element  Models.  In  the  Finite  Difference 
Models  the  general  approach  is  to  discretize  the  flow  region  into  a  system 
of  grid  networks  composed  of  either  rectangular  or  square  cells.  The  size 
of  the  cells  is  governed  by  the  accuracy  and  stability  of  the  specific 
numerical  scheme  applied  to  the  solution  of  differential  equations  describ- 
ing the  flow.  In  the  Finite  Element  Models  the  flow  region  is  represented 
by  a  grid  network  of  either  triangular  or  polygonal  elements,  with  triangu- 
lar elements  the  most  popular.  Again  the  size  of  the  elements  is  largely 
determined  by  the  accuracy  of  the  solution  scheme  but  generally  not  by 
numerical  stability. 

In  two-dimensional  flow  problems,  the  basic  set  of  differential 
equations  to  be  solved  consists  of  the  continuity  equation  and  the 
equations  of  motion  in  the  two  space  dimensions.  The  dependent  variables 
are  the  depth  and  velocity  (or  flow)  components  in  each  of  the  two  space 
dimensions.  Conceptually  the  Finite  Difference  Models  approximate  the 
solution  of  differential  equations  in  a  discrete  manner.  Once  the  govern- 
ing differential  equations  are  discretized,  the  set  of  differentials  becomes 
a  set  of  difference  equations.  This  set  of  difference  equations  is  then 
solved  using  either  an  explicit  or  an  implicit  method  for  prescribed  boun- 
dary conditions.  A  Finite  Element  Model,  on  the  other  hand,  solves  the 
differential  equations  without  discretization.  The  Finite  Element  Models 
solve  by  either: 


1.  Minimizing  a  functional,  an  integral  quantity  which  is 
a  function  of  unknown  functions,  or 

2.  Approximating  the  finite  elements  directly  from  the  differ- 
ential equations  governing  the  problem  using  weighted 
residual  methods  over  the  flow  region  and  part  of  its 
boundary. 

The  advantage  of  the  Finite  Difference  Models  is  that  their  numeri- 
cal solution  scheme  is  more  conventional  and  thus  better  known  to  program 
users  than  the  Finite  Element  Models.  However,  they  have  limited  solution 
efficiency,  lack  of  flexibility  in  representing  irregular  flow  boundaries, 
difficulties  in  treating  boundary  conditions,  and  are  likely  to  have  numeri- 
cal stability  problems  for  many  schemes.  The  Finite  Element  Models,  on 
the  other  hand,  are  readily  adapted  to  represent  irregular  flow  boundaries, 
have  a  more  efficient  solution  process,  and  are  more  reliable  in  numerical 
stability.  The  Finite  Element  Models  are  more  flexible  for  laying  out 
grid  size  and  in  representing  flow  boundaries.  This  is  particularly  impor- 
tant in  bridge  backwater  computation:  a  coarse  network  is  sufficient  to 
represent  the  low  variation  flow  in  Zones  I  and  IV  and  a  fine  network  is 
necessary  for  the  rapid  variation  flow  in  Zones  II  and  III.  The  major 
disadvantage  of  the  Finite  Element  Models  is  their  sophisticated  solution 
technique. 

A  potential  advantage  associated  with  the  Finite  Element  Models 
is  the  computation  of  the  contraction  scour  at  the  bridge  site  since  this 
type  of  model  gives  detailed  information  on  depths  and  velocities 
throughout  the  flow  region.  The  Finite  Element  Models  thus  have  the 
potential  for  computing  contraction  scour  and  bridge  backwater  simultane- 
ously, a  yery   important  feature  for  design  engineers. 
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DEVELOPMENT  OF  THE  FINITE  DIFFERENCE  AND  FINITE  ELEMENT  MODELS 

In  the  early  stages  of  development,  the  finite-difference  schemes 
were  broadly  applied  to  many  one-dimensional  and  some  two-dimensional  flow 
problems.  In  dealing  with  two-dimensional  flow  fields  the  Marker-and- 
Cell  (MAC)  method  (11)  applied  the  finite  difference  representation  to 
the  complete  Navier-Stokes  equations,  including  all  nonlinear  terms,  to 
obtain  approximate  solutions.  Other  finite  difference  methods  to  solve 
two-dimensional  flow  problems  have  been  given  by  Shubinski  et  at.    (12), 
Liggett  and  Hadji theodarou  (13),  Masch  (14)  and  Laendertse  (15).  With 
these  methods  various  solutions  have  been  developed  using  either  the 
complete  equations  with  simplified  boundary  conditions  or  more  general 
boundary  conditions  with  restricted  forms  of  the  equations. 

The  Finite  Element  Method  (FEM)  was  originally  developed  by 
structural  analysts  seeking  the  solution  to  the  complex  problems  of 
stress  analysis  of  a  continuum.  The  initial  theory  of  FEM  was  based 
upon  physical  intuition  and  a  balancing  of  forces,  i.e.,  the  flexibility 
introduced  by  cutting  the  system  and  reconnecting  it  only  at  discrete  points 
would  be  balanced  by  the  restricted  displacement  pattern  for  each  element. 
Theoretical  proofs  of  convergence  to  the  true  solution  soon  followed  (16, 
17,  18).  The  first  applications  of  the  method  were  in  the  aerospace 
industry  where  the  resistance  capability  of  continuous  aircraft  skins 
had  to  be  maximized  in  keeping  with  the  overall  objective  of  weight  mini- 
mization. The  solution  of  such  continuum  systems  using  traditional  struc- 
tural analysis  methods  would  have  required  an  infinite  number  of  joints, 
each  connecting  infinitesimally  small  elements. 

In  the  FEM,  the  continuum  area  is  represented  by  a  series  of 
discrete  polygons  interconnected  at  a  finite  number  of  locations  called 
nodal  points.  These  nodal  points  are  directly  equivalent  to  joints  in 
structural  problems,  and  the  elements,  although  two  dimensional,  are 
equivalent  to  beams  and  columns.  In  the  first  applications  the  elements 
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were  allowed  to  respond  in  restricted  and  simple  displacement  patterns 
in  order  to  maintain  continuity  along  all  interfaces  between  elements, 
but  force  transfer  was  allowed  at  the  nodes.  Thus,  with  the  system  approxi- 
mated, the  method  of  assemblage  of  elements  and  solutions  of  equations 
was  exactly  that  of  conventional  structural  analysis. 

The  first  practical  application  of  this  technique  outside  of  the 
aerospace  industry  was  to  the  stress  analysis  of  a  concrete  gravity  dam 
(19).  Application  to  problems  in  hydrodynamics  was  slow  due  primarily 
to  the  complexity  of  equations  describing  the  processes.  Some  applications 
of  the  FEM  to  flow  problems  include: 

•  Doctors  (20),  and  Chen  and  Larock  (21)  solved  problems 
of  potential  flows, 

•  Loziuk  et  at.    (22)  attempted  to  solve  problems  involving 
slow  viscous  flow, 

§  Norton  et  at.    (23)  applied  the  FEM  to  solve  density 
stratified  flow  problems  in  reservoirs, 

•  Gallagher  et  at.    (24)  used  the  method  to  analyze  the 
problems  of  lake  circulation,  and 

•  Zienkiewicz  et  al.    (25)  applied  the  method  to  seepage  flow 
in  porous  media. 

Of  special  interest  is  the  report  of  Franques  (26)  which  describes  the 
solution  of  the  two-dimensional  flow  through  bridge  constrictions,  the 
same  problem  addressed  in  this  report.  Franques'  approach  is  to  solve 
for  flow  distribution  in  a  two-dimensional  flow  region  using  the  equation 

_P£__a  fCf  |V|  a»V  afCf  |V|  *A  (l) 

Dt   9x  \  d   ax/   ay  \  d   ay/ 

and  then  solving  for  flow  depths  along  a  stream  line  by  the  equation 

g+  z  -  /  |dJl=  B(iO  (2) 

o 
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where        £  =  scalar  quantity  or  vorticity, 

Cf  =  a  depth  dependent  resistance  coefficient,; 

V  =  velocity  vector  in  the  flow  field, 

i>   =  stream  function, 

d  =  depth, 

z  =  water  surface  elevation, 

F  =  body  force, 

i   =  distance  along  a  stream  line, 

B  =  a  function  dependent  on  ips 

t  =  time, 

x  =  distance  along  x-coordinate,  and 

y  =  distance  along  y-coordinate. 

Equation  1  was  derived  from  the  Navier-Stokes  equation  by  neglecting  the 
viscous  terms,  and  Equation  2  is  the  Bernoulli  equation  along  a  stream 
line.  A  linearized  form  of  Equation  1  was  solved  by  the  FEM  to  obtain 
the  flow  distribution.  Through  the  use  of  Manning's  equation  and  the 
computed  flow  distribution,  the  depth  and  water  surface  elevation  along 
a  stream  line  were  computed  numerically  from  Equation  2.  In  Franques1 
approach  the  linearized  differential  equation  (Equation  1)  was  transformed 
to  an  integral  form  through  variational  calculus  from  which  the  finite 
element  representation  was  constructed.  Franques  demonstrated  this 
method  for  two  flood  events  at  Tall  anal  a  Creek  at  State  Highway  528  near 
Bay  Springs,  Mississippi.  The  computed  results  for  flow  distribution 
showed  fairly  good  agreement  with  field  data.  However,  the  comparison 
of  computed  water  surface  elevation  with  measured  data  was  reported  to 
be  inconclusive. 
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III.  GOVERNING  EQUATIONS 


The  derivation  of  the  equations  describing  the  incompressible 
turbulent  free-surface  flow  begins  with  a  statement  of  the  continuity 
equations  and  the  momentum  equations.  Each  of  the  basic  equations  is 
developed  in  three  dimensions  employing  traditional  methods  of  differ- 
ential analysis.  The  Eulerian  (fixed  in  space)  description  is  used 
with  the  standard  Cartesian  reference  system.  In  the  derivations  the 
horizontal  plane  coincides  with  the  x-y  plane. 

The  derivations  are  first  shown  for  a  general  three-dimensional 
fluid  volume  at  an  arbitrary  location  in  a  fluid  body  of  infinite 
extent.  Next,  several  terms  are  introduced  which  reflect  the  fact  that  the 
fluid  body  is  not  really  infinite  and  is  located  on  a  rotating  sphere. 
Finally,  a  summary  of  the  basic  two-dimensional  forms  employed  in  the  mathe- 
matical model  is  provided  for  future  reference. 


BASIC  EQUATIONS 

Consider  an  element  of  fluid  volume  with  dimensions  dx,  dy  and  dz 
The  continuity  equation  and  the  equations  of  motion  for  an  incompressible 
fluid  assume  the  forms  of 


M+1V+3W  (3) 

3x      ay      9z  v  ' 

and 
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where        p  =  instantaneous  value  of  pressure, 

y  =  dynamic  viscosity  of  fluid, 

p  =  fluid  density, 

u,  v,  w  =  instantaneous  velocity  components  in  x,  y,  and 
z  directions,  and 

x,  y,  z  =  the  body  force  acting  on  x,  y  and  z  directions. 

The  equations  grouped  in  (4)  are  the  so-called  Navier-Stokes  equations. 
They  are  second  order  differential  equations  because  of  the  viscous  terms 
and  quadratic  because  of  the  inertial  terms.  These  equations  describe 
the  fluid  motion  in  laminar  viscous  flows  and  must  be  modified  if  they 
are  to  be  used  to  study  the  turbulent  flow  fields.  This  modification  is 
necessary  to  describe  the  rapid  fluctuation  of  the  velocities  and  pressures 
over  both  time  and  space  characteristic  of  turbulent  flow  fields.  In  the 
present  analysis  the  turbulent  flow  will  be  analyzed  for  mean  motion  only. 

MEAN  VALUES  IN  A  TURBULENT  FLOW 

In  a  turbulent  flow  the  velocities  and  pressure  are  functions 
of  the  time  and  space  coordinates.  The  instantaneous  value  at  a  point 
fixed  in  space  may  be  considered  to  be  the  sum  of  a  mean  value  with 
respect  to  some  time  interval  and  some  fluctuating  component.  Mathe- 
matically this  is  expressed  as 

u  =  u  +  u'  (5) 
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v  =  v  +  v'  (6) 

w  =  w  +  w1  (7) 

P  =  P  +  P'  (8) 

where    u,  v,  w  =  the  mean  velocity  in  the  x,  y  and  z  directions 

over  some  time  interval,  At, 

p  =  the  mean  pressure  over  the  time  interval,  At, 

u',  v',  w'  =  the  velocity  fluctuations  with  respect  to  the 
mean  values  in  the  x,  y,  and  z  directions,  and 

p'  =  the  fluctuation  in  pressure. 

Further,  the  following  definitions  are  introduced  to  clarify  the 
statistical  nature  of  this  approach  to  turbulent  flow. 


-,    At 

"  =  7t     I       udt  (9) 

At  o 

-,     At 

v  =  ^    I      vdt  (10) 

0 

■■     At 
W  =  ±£  /    Wdt  (11) 

-,     At 

P  =  Tt  /   Pdt  (12) 

Al  0 

-,     At 

u'  =^  /   u'dt  =  0  (13) 

-,     At 

v'  =  k  /    v'dt  =  °  (14) 

0 
-,     At 

w'  =  4r  /   Wdt  =  0  (15) 

At  o 
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-,     At 

p,=W    p'dt  =  0  (16) 

From  the  above  definitions  it  can  be  seen  that  turbulent  motion  is  to  be 
considered  as  the  superposition  of  a  mean  motion  and  a  fluctuating  and 
disorderly  motion,  random  in  nature,  which  is  not  well  known  and  can  be 
described  only  in  terms  of  statistical  values. 

CONTINUITY  EQUATION 

Substitution  of  Equations  5  through  8  in  Equation  3  yields 


|j  (u1   +  u)  +|y  (v'   +  v)   +|y(W   +  w)   =  0  (17) 


or 


|^+|i +  |w  +  |u'+|v"+  |w'   =  0  (     j 

3x        3y        3z        3x        3y        3z  v       ' 


Now,  to  evaluate  the  averaging  process  as  it  relates  to  the  various 
terms  of  Equation  18,  consider  the  two  following  examples  (bar  notation 
indicates  the  averaging  process): 

3U         1  rAt    3u     ..  3      1  rAt   -     ..  3U  ,,nv 

37=It0/         *   dt   "  5ST  It    „'         Udt    =    3x"  (19) 


and 


"~-"i         n  At    _     i  ^n  At 

—    =  tt    /      ly-dt  =  f-4r    /      u'dt  =  0  (20) 

3X  At    o  3X  3X    At    o 


Thus,  the  continuity  equation  for  mean  motion  in  a  turbulent  flow  becomes 


M  +    3V   +    3W   =  (21  ) 

3X        3y        3Z  v      ' 
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MOMENTUM  EQUATIONS 

By  the  substitution  of  u  +  u'  for  u,  v  +  v'  for  v,  etc.,  in 
Equation  4,  there  results  a  set  of  general  momentum  equations  for  turbulent 
flow: 


(£+4+4  ♦4)-*-tiMs£ 


+   32U   +    32U 

sy"2"     az7 


.    p^'+    3uV+iuV)  (22) 

M*    3x  3v  3z      /  v"y 


,3V  .  -3V    -3V  .  -3V\    w   30.   (32V  ,  32V  ,  32V 
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These  equations  are  the  so-called  Reynold's  equations  of  motion  for  turbu- 
lent flow.  They  are  similar  to  the  Navier-Stokes  equations  with  the 
exceptions  that  (1)  an  additional  term  has  been  added  to  the  inertial 
forces  due  to  the  turbulent  fluctuation  and  (2)  the  other  forces  are 
now  expressed  in  terms  of  mean  values.  The  turbulent  fluctation  forces, 
which  are  the  final  terms  on  the  right-hand  side  of  the  Reynold's  equations 
are  often  called  the  "Reynold's  stresses"  and  are  the  subject  of  a  great 
deal  of  work  in  advanced  fluid  mechanics.  A  simplified  approach  to  the 
evaluation  of  the  Reynold's  stresses,  which  is  essential  to  the  solution 
of  the  momentum  equations,  is  now  presented. 


18 


To  make  the  Reynold's  equations  mathematically  tractable, 
Boussinesq  has  introduced  the  concept  of  a  turbulence  exchange  coefficient, 
e,  which  is  dimensionally  equal  to  the  coefficient  of  viscosity,  y.  In  the 
case  of  uniform  flow  in  the  x  direction,  the  exchange  coefficient  is 
defined  by: 


3U 


P   uV   =  -  e  f£  (25) 

Employing  this  definition,  the  fluid  shear  stress  becomes 

t   =    (ji  +  e)   |^'  (26) 

From  this  definition  it  may  be  seen  that  the  Reynold's  stress  terms 
would  act  similarly  to  the  viscous  friction  term,  with  their  effect 
added  linearly.  Experimental  data  have  shown  that  y  and  e  are  of  different 
orders  of  magnitude,  and  that,  in  general,  e  >»   y.  And,  for  engineering 
purposes,  it  is  possible  to  make  the  approximation: 

r-4  (27) 

Traditionally  the  main  drawback  to  applying  this  approximation 
of  Equation  26  to  the  Reynold's  stresses  was  that  e  is  known  to  vary  in 
space  and  time.  This  condition  precludes  its  inclusion  in  any  tradi- 
tional method  of  analysis.  As  the  limitation  is  relaxed  by  the  numerical 
methods  described  in  this  report,  it  is  possible  to  use  the  Boussinesq 
approximation.  When  the  approximation  is  substituted  into  the  Reynold's 
equations  the  result  is  given  as: 

4+  q3u  +  ^+WM.)  =  x.  9£+  e  (^+^+M  (28) 

at   3x   ay   3z/      9x   bx  yax2   sy^   sz27/    v  ' 

,;>•<    ,  ,  »;;vv      __  3£  +    /  92V  +  32V  +  32v\ 


3t        3x        3y        92/       y     sy        yysx27      3y2       3z2/ 
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/aw   -aw   -aw  ,  -aw  \  _     3£     /a2w  ,  32W  ,  32w\     ,,n* 


where  e  ,  e  ,  e  =  the  turbulenceexchange  coefficients  in  the  x,  y,  and  z 
y      directions,  respectively. 


The  above  equations,  which  are  sometimes  referred  to  as  the  phenomenologic 
equations,  are  the  basic  form  of  the  general  momentum  equations  which  have 
been  incorporated  into  the  computer  model  described  in  this  report. 


TWO-DIMENSIONAL  HORIZONTAL  FLOW  MODEL 

GOVERNING  EQUATIONS  AS  FUNCTIONS  OF  VELOCITY,    PRESSURE  AND  DEPTH 

In  the  absence  of  an  electromagnetic  field,  gravity  is  the  only 
body  force  encountered  in  fluid  flow.  For  two-dimensional  horizontal 
flow,  x=y  =  0,  and  the  basic  phenomenological  and  continuity  equations 
(bar  notation  dropped)  may  be  stated  as 

3u  +  u9u  +  v au.  +  1  ail  _  fx_  / 3£u  +  3fu\  =  0         (31) 

3t    3X    3y   p  3X   p   \3X2   sy2/  v  ' 

av  +  u3v  +    3v  +  1  ifi.  _  fy_  /3£vr+  3£v\  =  0  C32) 

3t        3x        sy      p  ay      P     \3x2      3y2/  v    ' 

&-+  ^-=  0  (33) 

3X       3y 

The  above  equations  have  been  derived  for  an  elemental  fluid  volume  contained 
in  a  large  fluid  mass.  As  we  wish  to  derive  more  complete  forms  for  flow 
in  the  horizontal  plane,  we  must  modify  the  basic  equations  to  allow  for 
a  free  water  surface,  variable  depth,  and  the  effect  of  bottom  friction. 
This  may  be  done  by  integrating  Equations  31  and  32  through  the  full  depth. 


20 


By  introducing  the  definitions  for  the  local  water  depth,  h,  and 
elevation  of  the  bottom  surface,  z  ,  as  shown  in  Figure  2,  it  is  possible 
to  express  the  effect  of  friction  along  the  boundary  between  the  flowing 
water  and  its  confining  boundary  as 


'b  =  P  ^-  (u2  +  v2) 
x    C2h 


1/2 


(34) 


=  P 


C2h 


(u2  +  v2) 


1/2 


(35) 


where 


F,   =  the  unit  force  due  to  bottom  friction  in  the  x  direction, 


F,   =  the  unit  force  due  to  bottom  friction  in  the  y  direction, 


y 
g 
c 

h 


the  gravitational  constant, 
the  Chezy  coefficient,  and 
the  local  water  depth. 


STTFTh 


Figure  2.  Definition  Sketch  for  Horizontal  Flow  Model 
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The  inclusion  of  the  bottom  friction  completes  the  basic  statement  of  the 
horizontal  flow  model  employed  in  the  finite  element  formulation.  Prior 
to  writing  the  complete  forms,  however,  we  shall  introduce  a  different  form 
for  the  pressure  term  in  Equations  31  and  32  and  modify  Equation  33  to 
reflect  the  effects  of  a  moving  water  surface. 


112. 
Equation  31  may  be  written  for  a  flat  bottom  as 


Again  referring  to  Figure  2,  the  pressure  term  —  -E-  of 


1  IE  =  I_  3_  /DQh2  (36) 

p  9X   ph  8X  \pg2 


If  g  =  constant,  and 


h*  =  h  +  z  ,  then  for  a  sloping  bottom 


l^-kk^fhlk^o)  (37) 


Equation  37  can  be  expanded  to  the  form 


1M=   g^+g^°  (38) 

p  3X     33X    39X  v   ' 


In  a  similar  fashion,  the  pressure  term  of  Equation  32  takes  the  form 

The  above  expressions,  Equations  38  and  39,  are  the  forms  used  in  the 
final  statement  of  the  phenomenologic  equations. 

The  continuity  equation  for  two-dimensional  flow  with  a  free 
surface  is 
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With  all  the  necessary  additions  and  modifications  now  set  forth,  the 
basic  equations  for  the  horizontal  flow  model  can  be  restated  as 

Motion  Equations 


9U    +   U^U  8U         „3h 

at        ax        9y 


3h    .    „      0         £X    /92U    ,     92u\    .    qu       /ll2    ,    „2\    2         n 

C40) 

3J.+  u3V  +  viv  +  glH+g!!o  .!y  (l£v  +  l£v\+sv     (  2  +    2)v2  = 
9t        ax        gy      yay      yay        P     \ax2      ay2/      C^h  v  ' 

(41) 

Continuity  Equation 

$  +  £  (uh)  ♦  ^  (vh)  -  0  (42) 

GOVERNING  EQUATIONS  AS  FUNCTIONS  OF  FLOW  AND  DEPTH 

Because  of  the  order  of  approximations  set  forth  for  the  finite 
element  formulation,  it  is  desirable  to  make  a  change  of  variables  and 
make  the  primary  variables  flow  and  depth  rather  than  velocity  and 
pressure.  This  change  of  variables  is  accomplished  by  introducing 
the  following  substitutions: 

r  =  uh  (43) 

s  =  vh  (44) 

where      r,  s  =  unit  flow  in  the  x  and  y  directions,  respectively. 

Bypassing  undue  detail,  it  can  be  seen  that  from' Equations  43 
and  44  we  can  derive  all  necessary  substitutions  for  the  governing 
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equations.  For  example,  from  Equation  43,  we  can  write: 


u  =  r  h 


-l 


a_u 

3X 


=  h-1  |n 

3X 


"  ^  £ 


(45) 
(46) 


3ZU  _ 
3X2"  ' 


h-l  2!r  .  rh-2  32h 


3X< 


ax* 


ax  ax      lax 


(47) 


With  the  appropriate  change  in  variables  now  defined,  the  final  form 
of  the  governing  differential  equations  can  be  written  as  follows: 

Motion  Equations 

Substituting  Equations  43  and  44  into  Equations  40  and  41  and 
integrating  with  depth  the  result  is 


-lit  -  h-2r^  +  rh"2^  -  r2h"3^  +  sh"2^  -  srh"3^ 


at     at 


4-  n9h  *  n9Z° 

+  q —  +  q 

3ax   3ax 


ax 


ax 


,-iifl. 
ax 


-  rh' 


3y 


:32h 

ax2 


3y 


h-23_h_  ax 
ax  ax 


+  rh 


-3 


m 


,-i  £r  .  rh.2£h  ..  h_2|ii  in 


w 


ay  sy 


rh-s(fV 


Vo 


+  alnir(r2  +  s2}/2  =  0 
c2 


(48) 


and 
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h-l|S    .    h-2s|h    +    rh.2|S    _    rsh-3|A  +    sh-29l  _    s2h-39h. 

at  9t  3x  3x  3y  ,    3y 


+  g|A+g!!o.!x 

y9y        y9y  p 


3X^ 


-23   h       u-23h  9s 


h"1^-  -  sh"z^  -  h 


3X' 


9X   9X 


+  sh 


-3 


ft)' 


e 

P 


h^ 


rh-232h         h-29h_9s_ 
9y      "  9x      "  9y    9y 


+  sh 


-3 


3_h 

8y 


u    3  v2 

+  SL_s(r2  +  s2)       =  0 
C2 


(49) 


Next,  in  order  to  eliminate  the  time  derivatives  we  shall  introduce 
the  linear  acceleration  assumption.  Using  the  x  direction  flow,  r,  as  an 
example,  we  can  define  the  relationship 


rt+At  =  rt  +  |t 


9t 


t+At 


9t 


(50) 


u       t    t+At 

where  r  ,  r 


,9t/  '  \9t/ 


t+At 


the  x  direction  flow  at  time  t  and  time  t+At, 
respectively, 

the  time  rate  of  change  of  x  direction  flow  at  some 
time  t  and  time  t+At,  respectively,  and 


At  =  time  interval 


Then 


kt+At 


9r V    -  2_  rt+At   2_  t 

9t/       At       'At      \9t 


3r 


(51) 


Further,  if  in  general  the  vectors  r  and  (gx-J  are  known  at  time  t, 
we  can  define  the  following  relationship  (dropping  the  superscript) 


9r 
9t 


=  ar  - 


(52) 


where 


9r 
9t 


the  time  rate  of  change  of  the  x  direction  flow  at  the 
end  of  some  time  interval, 


25 


r  =  the  x  direction  flow  at  the  end  of  some  time  interval, 
and 


a  coefficient,  and 
t 

av  "  ;n.' 


If  we  now  interpret  the  governing  equations  as  being  defined  at 
the  end  of  some  known  time  interval,  with  appropriately  stated  variables 
known  at  the  beginning  of  the  interval,  we  can  write 


£  =  ar.Bl 


3S_ 

at 


=   as    -    32 


3h    _      . 
it   "ah    " 


3fi.  _ 
3t   "   ap 


33 
34 


(53) 

(54) 

(55) 
(56) 


The  governing  equations  can  be  put  into  final   form  by  multiplying 
Equations  48  and  49  by  h3  and  substituting  Equations  53,  54,  55  and 
56  for  the  time  terms,  with  the  result: 


h2(ar  -  3i)  -  hr  (ah  -  g3V+  rh^  -  r2|^- +  sh 

\  /  oX  aX 


ax  _  sra]l 
ay         ay 


+  gh3^-  +  gh3— ( 
3    ax      3    ax 

.  hah  ar  +  r(ah\2 
ax  ax        \ax 

.  hah  ir+     /ah\2 

ay  ay        \ay 


h*f£  -  rh0 


ax< 


ax' 


V2 


+  3L  (r2  +  S2)       =  o 


(57) 


and 
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h2(as  -  g2)       hs  (3h  -  33)  +  rh 


3s  .  rs|h+  sh|s  _  s23h 


9X 


+  gh3§  +  gh3 


!!o..!^ 


3y 


.ah  3s   ,   „/3hV 
"  h3^+  s[^j 


■3h    3S  /3h 

sy  3y    '    Uy 


3X 


3X 


-  sh 


3y 

32h 

3X^ 


3y 


fy_ 


3ZS 
3p" 


-  sh 


32h 

9p~ 


+  flf-  (r2  +  s2)       =  0 
C 


(58) 


Continuity  Equation 


3r  ,  3s 


<ah-e3)+ix-  +  iy-=0 


(59) 


These  last  three  equations,  Equations  57,  58  and  59,  are  the 
basic  differential  equations  used  to  describe  fluid  movement  in  the  hori- 
zontal plane.  When  boundary  conditions  are  specified,  the  values  of 
h,  r  and  s  can  be  obtained  by  solving  Equations  57,  58  and  59.  In  these 
equations  the  unsteady  terms  have  been  retained  to  maintain  generality. 
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IV.  THE  FINITE  ELEMENT  METHOD 


CONDITIONS  FOR  THE  FINITE  ELEMENT  METHOD 

The  first  step  in  the  application  of  the  Finite  Element  Method 
is  the  construction  of  acceptable  single-element  approximations  to  the 
physical  system.  A  suitable  element  will  have  an  approximating  function 
with  the  same  number  of  independent  variables  as  the  number  of  inter- 
connection points  to  other  elements.  The  variation  of  the  approximating 
function  along  the  boundary  of  an  element  must  exactly  match  that  of 
an  adjacent  element.  For  example,  a  triangular  element  with  nodal 
point  degrees  of  freedom  at  the  vertices  must  have  a  linear  approximating 
function  (three  coefficients  <j>  =  a  +  bx  +  cy).  The  second  condition  is 
met  because  the  function  is  linear  along  the  sides  of  the  element  and  the 
adjacent  elements  match  exactly.  Similarly,  if  mid-side  nodes  are  used 
a  quadratic  approximating  function  may  be  used. 

A  necessary  condition  for  convergence  of  the  finite  element 
approximation  with  decreasing  element  size  is  that  the  fundamental  equa- 
tions do  not  contain  derivatives  two  orders  higher  than  those  derivatives 
that  match  across  the  element  boundary.  Also,  the  function  must  be 
capable  of  representing  a  constant  value  of  the  function  or  its  derivatives 
present  in  the  integral  equation  describing  the  element. 
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FINITE  ELEMENT  REPRESENTATION  USING  METHOD  OF  WEIGHTED 
RESIDUALS  (GALERKIN  PROCESS) 

The  conventional  basis  for  formulating  a  finite  element  represen- 
tation is  an  integral  form  which,  in  the  sense  of  a  variational  principle, 
corresponds  to  the  governing  differential  equation.  Such  an  integral  form 
is  known  as  a  "functional."  The  correct  solution  of  the  problem  is  that 
which  minimizes  the  functional  over  a  certain  domain. 

In  many  physical  problems,  however,  a  functional  may  not  exist 
or  has  not  been  discovered  with  the  differential  equations  governing  the 
problem.  For  example,  there  are  no  convenient  functionals  for  the 
Navier-Stokes  equations  and  the  Reynolds  equations  of  motion.  In  such 
cases  the  transformation  of  the  governing  differential  equations  to  inte- 
gral form  is  made  through  the  use  of  weighted  residuals  rather  than  through 
variational  calculus.  In  this  report  the  method  of  weighted  residuals 
will  be  applied  to  the  differential  equations  described  in  Chapter  III  to 
form  the  finite  element  representation.  Before  this  procedure  is  discussed, 
however,  it  is  advantageous  to  demonstrate  the  solution  of  the  quasi - 
harmonic  problem,  which  has  as  a  special  case  the  well-known  Laplace  and 
Poisson  equations.  This  exercise  will  serve  as  an  outline  for  the  solution 
in  Chapter  V  of  the  equations  governing  fluid  flow  (see  Chapter  III). 
Methods  of  numerical  area  integration  techniques  will  also  be  reviewed. 

The  general  form  of  a  quasi -harmonic  equation  in  a  two-dimensional 
field  is 


h   kx  i)  +  !y  ky  !y  +  Q  =  °  (50) 


in  which  <j>  is  the  unknown  function,  assumed  to  be  a  single  value,  and 

k  ,  k  and  Q  are  known  or  specified  functions  of  x  and  y  (Figure  3a). 
x   y 
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Y 


<f>   =  4 


B 


->-x 


Y 


(a)     A  REGION 


Region 
Boundary 


Nodal  Points 


->-X 


(b)     FINITE    ELEMENT    REPRESENTATION 
OF   A    REGION 

Figure  3.     Finite  Element  Representation 
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To  obtain  the  approximate  solution  of  Equation  60  by  the  Finite 
Element  Method,  the  region  is  divided  into  triangular  elements,  as  shown 
in  Figure  3b.  Over  each  element  the  function  is  allowed  to  vary  in 
a  limited,  prespecified  form  and  elements  are  interconnected  only  at 
nodal  points.  In  the  conceptual  representation  of  the  element  and 
a  region,  let  the  nodal  points  be  the  vertices  of  the  triangle.  Then  for 
a  typical  triangle  i,j,k,  an  approximating  trial  function  may  be  written 


[N,.Nj.  Nk]   j*j}  (61) 


or 


EN]  U  } 


in  which  N.  is  a  linear  function1  of  x  and  y  where  N.  =  unity  at  node  i 
and  zero  at  nodes  j  and  k.  A  similar  relationship  exists  for  N.  and  N.  . 
N-  is  the  so-called  "shape  function."  In  all  finite  element  applications 
the  shape  functions  have  the  same  definition,  i.e., 


N.  is  continuous  over  the  element  and 

N  _  1  at  node  i 
i    0  at  all  other  nodes. 


!For  a  triangle  in  which  a  quadratic  approximation  is  desired,  nodes  on  the 
mid-side  of  each  element  are  required  and 


♦  -[N,.!!,.^.  V  Nk,Nn]  < 


where  N  is  a  quadratic  function  of  x  and  y,  but  also  a  known  function  of 
element  geometry. 
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The  coefficients  of  the  linear  expansions  for  N.  and  other  N 
functions  are  all  known  functions  of  the  element  geometry.  For  example, 
in  an  element  with  vertices  at  locations  (0,0)  (2,0)  (0,2)  as  shown  in 
Figure  4,  the  shape  functions  are 


N-,  = 


No  = 


}(2 


h 


2y 


-  x  -  y) 


(62) 
(63) 
(64) 


FUNCTION  N2 
(b) 


FUNCTION  N- 
(C) 


Figure  4.  Shape  Functions  for  a  45°  Triangle 
With  Base  Length  Equal  2 


Similar  functions  may  be  written  for  the  general  linear  triangle 
i,j,k,  i.e., 


Ni  =  a.  +  b.x  +  c.y 


(65) 


where  a-,  b.,  c.  are  purely  geometric  constants 


32 


Let  Equation  60  be  written  as  a  function  h(<i>,x,y)  =  0: 

h  ■  h  (kx£) +  k  ("ywl +  Q "  °  (66) 

Then  the  general  method  of  weighted  residuals  states  that 


// 


w  h  dxdy  =0  (67) 


where  h  is  evaluated  for  a  location  function  *  and  w  is  any  geometric 

a 

weighting  function.  In  terms  of  discrete  elements,  Equation  67  may  be 
written  as 


// 


w  h  dxdy  =0  (68) 


Then  for  any  element  the  approximating  function  <j>  =  N  <j>  may  be  selected 

where  <j>  are  the  nodal  values  and  N  is  a  geometric  slope  function,  allowing 

h  to  be  expressed  as  a  function  of  nodal  values  <t>    .  The  Galerkin  variation 

n 
of  the  Method  of  Least  Residuals  states  that  the  best  approximation  to  the 

true  solution  will  be  obtained  when  the  shape  functions  are  used  as 

weighting  factors,  i.e.,  w  =  N- . 

The  final  result  of  the  Galerkin  process  will  be  one  equation  for 
each  node.  That  equation  consists  of  the  sum  of  the  contributions  for  all 
adjacent  elements.  Again,  it  is  convenient  to  form  the  equations  on  an 
element-by-element  basis.  To  form  the  equation  for  one  such  element, 
we  use  the  Poisson  equation  and  compute  the  contributions  to  all  nodes  of 
the  element  as  follows: 


//' 


MT  fe  «)  >  fe  («4)  *  « 


dxdy  (69) 


where      [N]T  =  {N} 
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Since  <j>  is  assumed  to  be  continuous  only  along  element  sides,  values  of 
«■  may  be  discontinuous,  but  integrals  of  such  discontinuities  will  be 
zero.  The  value  of  — f-  ,  however,  tends  toward  infinity  at  element  inter- 

9  X 

faces  and  the  integral  of  such  values  across  the  boundary  will  be  nonzero. 

It  is  necessary,  therefore,  to  transform  the  contribution  of 
Equation  69  to  eliminate  second  order  differentials.  Using  Green's 
Transformation,  Equation  69  becomes 


/[N]T  (k$  cx  ♦  cyky|i)  dS  -_//J[N,x]T  kx§£  +  [N,y]T  kyf£  -  [N]T  Q 


dxdy 
0) 


where  c  and  c   =  the  direction  cosines  of  the  outward  normal  and 
y    the  x  and  y  directions,  respectively, 


LIN'xJ    3X 


and 


[N  ]  =  l£Nl 
UN,yJ    ay   ' 

The  surface  integral  will  disappear  for  all  internal  element  interfaces 
and  only  appear  on  the  boundary  of  the  system  where  the  specified  boundary 
conditions  will  provide  sufficient  information  to  evaluate  the  integral. 
A  strict  statement  of  the  Poisson  functional  would  have  included  a  boundary 
surface  integral  and  a  similar  definition  of  boundary  conditions.  Thus* 
it  can  be  shown  that  the  functional  approach  and  the  Galerkin  approach  can 
lead  to  identical  finite  element  formulations. 

As  stated  previously,  no  convenient  functional  approach  exists 
for  the  solution  of  the  Navier-Stokes  equations.  Hence  the  Galerkin 
method  will  be  used  in  all  finite  element  derivations  in  this  report. 
One  significant  feature  of  the  Galerkin  method  as  opposed  to  the 
functional  approach  is  that  the  simultaneous  equations  derived  from 
a  functional  are  always  symmetrical,  whereas  no  such  guarantee  exists 
in  the  Galerkin  method. 
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NUMERICAL  INTEGRATION 

One  of  the  most  important  features  of  a  finite  element  model  is 
the  ability  to  perform  integration  over  the  area  of  the  element  as  functions 
of  x  and  y.  For  the  particular  case  of  the  linear  approximation  to  the 
Poisson  equation  the  integration  is  trivial  since  the  order  of  integration 
is  either  constant  or  linear.  However,  when  quadratic  shape  functions  are 
used,  the  order  of  integration  is  quadratic  or  higher  and  algebraic  area 
integration  is  often  too  cumbersome  for  practical  application.  There  is, 
however,  a  convenient  numerical  approach,  called  numerical  integration, 
which  yields  exact  answers  for  any  desired  degree  of  integration. 

The  process  of  numerical  integration  is  (1)  evaluating  the  function 
at  specified  locations  within  the  triangle  and  then  (2)  multiplying  the 
value  of  the  function  by  appropriate  weighting  factors,  i.e., 


// 


q 

h(x,y)  dxdy  =  AE  w^Cx-.y.)  (71) 


i=l 

A 

where        A  =  area  of  the  triangle, 

w.  =  specified  weighting  factor, 

x.,  y.  =  specified  coordinate  locations  for  evaluation  of  h, 

q  =  number  of  integration  points,  and 

x-  and  y.  are  invariant  with  respect  to  the  actual  shape  of  the  triangle. 

Appropriate  numbers  of  points  and  their  locations  for  given  orders 
of  error  are  available  in  the  literature  (27).  A  quintic  order  integration 
method  is  used  for  the  application  of  the  finite  element  method  to  the 
Navier-Stokes  equations.  There  are  seven  locations  for  integration  and  the 
error  is  of  the  sixth  polynomial  order.  The  reader  is  referred  to 
0.  C.  Zienkiewicz  (Ref.  27),  page  151,  for  the  exact  locations  and 
weighting  functions.. 
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V.   METHOD  OF  SOLUTION 


In  this  chapter  the  Galerkin  process  of  the  Method  of  Weighted 
Residuals  will  be  applied  to  develop  a  finite  element  formulation  for 
the  coupled  continuity  and  momentum  equations  describing  the  two-dimensional 
flow  in  the  horizontal  plane.  Since  the  present  work  is  focussed  on  the 
steady  state  condition,  the  time  dependent  terms  will  be  omitted  in  this 
derivation.  The  Newton-Raphson  scheme  will  be  used  to  solve  the  nonlinear 
inertial  terms  in  the  flow  equations. 


BASIC  ELEMENT  AND  SHAPE  FUNCTIONS 

The  basic  element  shape  selected  for  the  fluid  mechanics  model  is 
the  triangle  since  irregular  boundaries  may  be  better  approximated  with 
such  a  shape  and  the  complete  model  can  be  developed  in  terms  of  one 
basic  element  without  the  special  cases  that  are  assoicated  with 
a  quadrilateral . 

Six  nodes  are  associated  with  each  triangle:  three  at  the 
vertices  and  three  on  the  mid-sides.  The  system  is  described  in  terms 
of  unit  flow  components  r  and  s  at  all  six  nodes  and  in  terms  of  depth 
at  the  vertices  only  (see  Figure  5).  This  is  consistent  with  the  assump- 
tion that  r  and  s  vary  as  quadratic  functions  over  the  element  but  that 
depth  varies  linearly.  When  the  coefficients  are  constructed  for  an 
element  there  are  15  equations  comprised  of  six  unknown  values  of  r  and 
of  s  and  three  unknown  values  of  h.  The  assumption  of  linear  depth 
variation  is  necessary  for  consistency  of  the  order  of  solution. 
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(r,s,h) 


k(r,s,h) 


(r,s,h) 


Figure  5.  Basic  Element  for  Fluid  Flow  Equations 


APPLICATION  OF  THE  FINITE  ELEMENT  METHOD  TO  THE  BASIC  EQUATIONS 

The  first  step  in  applying  the  Finite  Element  Method  to  governing 
equations  is  to  employ  Galerkin's  criterion  to  the  method  of  weighted 
residuals.  This  is  done  by  making  the  weighting  function  equal  to  the 
shape  function  defined  for  the  Finite  Element  Method.  In  the  following 
equations,  the  basic  definitions  are  implied  by  the  method  and  the 
integral  equations  are  all  written  in  matrix  form.  For  example, 

s  =  [N]  (s> 


where 
and 


[N]  =  [N,  Nj  Nk  N,  Nm  N„] 


s. 
1 


{S}  = 


m 
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and 


[N]1  =  {N} 


With  these  definitions,  the  Galerkin  statement  of  the  governing  equations 
becomes  for  the 


Motion  Equations 


and 


A 


[N] 


.ar         o3h        .  ar  ah         ,  3ah  ,     ,3     ( 

rh—  -  r^irr  +  sh—  -  sr—  +  gh  —  +  gh °g— 


3X 
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h^ 
h^ 
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a2r 
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32r 


ay 


sy 


.  rhl^.  .  hliL3r  +     /ah 
ax^         ax   3X  \3X 


ay 


r.rh0.h|hln+r/ 


3y< 


ay  ay   A  ay 


Vo 


+  SX  (r2+  S2)    JdV  =  0 

c2       , 


/< 


[N] 


T  (rhiL  _   ah   .as_  _  zah.  +  qh33h.  +  qh3!!p_ 
rnax   rsax   snay   s  ay   gn  ay   gn  ay 

2- 


.  _y_ 
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_  _y_ 
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.  292s        .  a2h      .  3h  9s   .     /ah 
h  aF"  sh9F"  ha7  3x~+s  ax 


2^2S         _u92h 


ay 


-  sh 


ay 


r_h|h^+s/9h 


ay  ay 


ay 


W 


+   31   (r2    +    S2)       JdV    =    0 

C2 


(72) 


(73) 


and  for  the  Continuity  Equation 


/[M]T(^+§)  dV  =  0 


(74) 


where 


[N]  =  a  quadratic  weighting  function  defined  at  six  nodes, 

[M]  =  a  linear  weighting  function  defined  at  three  corner 
nodes,  and 

V  =  element  area. 
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The  Motion  Equations  (72  and  73)  contain  second  order  derivatives 
It  is  necessary  to  reduce  the  higher  order  derivatives  in  each  of  the 
governing  equations  by  an  application  of  Green's  Transformation.  Typical 
transformations  take  the  form 

(1)  /[N]T  h*f£dV  -      /[N]T  h^cxdS  -    /[N]T  2h|Lf  dV 

V  S  V 

-   /[N'x]Th2!^dV  <75> 


2 

(2)  /[N]T  rh0  dV  -     /[N]T  rh§£  cxdS  -   /[N]T  rff )    dV 

V  S  V 

-/[«Thl?f  dV"  /fN'x]T<dV  <76> 


(3)     /[N]T  gh3§  dV  =  |  /[N,X]T  h-cxdS  -  f  /[N,X]T  h-dV    (77) 


where       c  -  the  direction  cosine  normal  to  the  surface  s,  and 
S  =  contour. 


When  the  relationships  defined  by  Equations  75  through  77  are  substituted 
into  the  Motion  Equations,  we  arrive  at  the  final  forms  for  the  finite 
element  method  statement  of  the  horizontal  flow  model. 
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Motion  Equations 


w  /{[n]t(<- 
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(78) 


dS  =  0 


(79) 


Continuity  Equation 


<f3>=  /MT(f  ♦ 


3S 

9y 


dV  =  0 


(80) 
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NONLINEAR  SOLUTION  METHODS 

Equations  78  and  79  contain  nonlinear  terms  in  the  integrals 
Typical  nonlinear  terms  are  in  the  form  of 


/ 


i]T  rh|£  dV 


/[N]T  shft 


dV 


and 


V 

/[Nf 


rh^-dV 

9X 


sh|^-dV 


ay 


A  general  expression  for  the  finite  element  formulation  of 
Equations  78  through  80  may  be  written 

[K]  {un}  +  [D(u)]  {un}  =  {R}  (81) 

where       [K]  =  the  contribution  of  linear  terms, 

[D(u)]  =  the  contribution  of  nonlinear  terms, 

{u  }  =  a  generalized  variable  vector,  and 

{R}  =  a  right-hand  side  vector. 

The  following  three  methods  represent  the  most  attractive 
possibilities  for  solving  Equation  81: 

1.  Successive  approximations  using  a  modified  coefficient  matrix, 

2.  Successive  approximations  using  a  constant  coefficient  matrix,  and 

3.  The  Newton-Raphson  scheme. 
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All  three  methods  are  iterative  in  that  they  require  an  estimate  of  the 
value  of  the  unknown  before  solution  can  proceed,  and  the  process  is 
repeated  using  progressively  better  estimates  of  the  solution.  Among 
the  three  methods  it  has  been  found  that  methods  1  and  2  were  not  only 
unstable  but  also  unreliable  in  solving  the  flow  equations.  These  methods 
are  generally  useful  only  when  the  effects  of  nonlinearity  are  small, 
a  situation  which  is  not  usually  true  in  fluid  problems.  The  Newton- 
Raphson  scheme,  on  the  other  hand,  has  proved  to  be  convergent  for  all 
problems  that  have  shown  acceptable  answers  in  the  initial  step. 
Therefore,  the  Newton-Raphson  scheme  has  been  selected  for  the  model 
described  in  this  report.  A  detailed  description  of  this  method  follows. 


THE  NEWTON-RAPHSON  SCHEME 

The  Newton-Raphson  scheme  replaced  Equation  81  with  a  derivative 
approach  based  upon  the  error  of  the  last  solution.  If  an  error  function 
f  is  defined  as 


{f"1}  =  [K]  {unm}  +  [D(um)]  {unm}  -  {R} 


(82) 


and  solution  is  based  upon  solving  for  the  correction,  au,  to  the 
previous  solution,  then 


[/]    (AUnm+1>    =    {fm} 


(83) 


where    {unm+1}  =  {unm  +  Aunm+1 }  and 
.  n       n     n 


m 


ij 


311. 


m 


(84) 
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[J  ]  is  the  so-called  Jacobian  of  the  system  at  step  m,  and  terms  of  this 
matrix  indicate  the  instantaneous  slope  of  the  function  f  with  respect  to 
changes  in  each  of  the  variables.  Actual  solution  thus  consists  of 
evaluating  all  the  error  functions  {f}}  and  computing  the  corrections  to 
{u}  based  upon  the  instantaneous  slopes  to  eliminate  all  the  errors. 

Graphically  the  Newton-Raphson  procedure  may  be  represented  in 
a  one-degree-of-freedom  system  with  values  of  f  following  the  curve  0-0 
(see  Figure  6)  by  the  following  steps: 


1. 
2. 
3. 

4. 


Point  1  represents  the  initial  guess  u. , 

Point  2  represents  the  value  of  the  function  f  for  u • , 

Point  3  represents  the  adjusted  value  of  u  based  upon 
the  slope  at  2,  and 

Point  4  represents  the  adjusted  value  of  f,  etc.,  until 
convergence  is  achieved  at  point  9. 


Note  that  in  a  multi-degree-of -freedom  system  there  are  n  values  for  f 
and  each  f  has  n  slopes.  The  solution  process  must  therefore  adjust  all 
n  values  of  f  simultaneously  by  variation  of  the  n  variables. 


Figure  6.  Newton-Raphson 
Iterative  Convergence: 
One-Dimensional  Function 
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APPLICATION  OF  THE  NEWTON-RAPHSON  SCHEME  TO  THE  FLUID  FLOW 
FINITE  ELEMENT 


Consider  a  nonlinear  term  u— -with  a  finite  element  contribution 

oX 


of  the  form 


{f}  =  /[N]T  [N]  {un}  [N,x]  {vn}  dA  (85) 


A 


The  derivatives  of  this  integral  must  be  taken  with  respect  to  each 

of  the  variables  u„  and  v„,  i.e.,  typically: 

n  n  ■/r  J 


fH  =    /[N]T  [N,x]  {vn}  [N.]  dA  (86) 

J  >       A 


3vT(  =    f^1  EN]  (u„)  [N,  J  dA  (87) 


3 v.-  J  nJ    u  j,x 

K     3)      A 

The  interior  matrix  products  [N,v]{v  >  and  [N]{u  >  are  the  values  — 

x   n         n  oX 

and  u,  respectively.  When  numerical  integration  is  used  to  evaluate 

the  integrals  of  Equations  86  and  87,  they  may  be  rewritten  as  a  summation 


£7)  =  A£wg  [N]T  (||)  [N.]  (88) 


3>  *  v  7g 


|fTJ  =  AEwg[N]Tug[N.>x]  (89) 


where        A  =  area  of  triangle, 


w  =  numerical  integration  weighting  factor  at  location  g, 
9   and  g  indicates  evaluation  at  the  specified  integra- 
tion point  (often  called  a  Gauss  Point). 


44 


Equations  88  and  89  are  the  submatrices  that  are  generated  by  the 

u— -  term,  and  they  appear  in  columns  appropriate  to  u  and  v  of  the  final 

oX 

coefficient  matrix. 


JACOBIAN  FORMS  OF  BASIC  EQUATIONS 

A  complete  list  of  Jacobian  forms  of  the  Galerkin  process  of 
the  basic  equations  (78  through  80)  can  be  derived  using  a  method  similar 
to  that  applied  to  Equation  85.  These  forms  are: 


3fM         /•(       T 


[^-2rf£-sf£j  +  [N.x]rh  +  [Nty] 


>    [N]T 


:(f)2  +  EN]  2(|)2  -  [N,x]  2hf£ 


-   CN.y]  2h| 


+  [N,x]T([N]h|^-[N,x]h^) 
+[N,y]T([N]  h§-  [N.y]   h2) 
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dS 
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(91) 
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ah 
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+  [N]T  f[N]  \  (2s2  +  r2)(r2  +  s2)         }  dV 
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Continuity  Equation 
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(98) 


The  resulting  element  coefficient  matrix  can  be  expressed  in 


the  form 


6  rows 


6  rows 


3  rows 


6  cols. 

6  cols. 

3  col: 
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Ah 
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(99) 


Note  that  each  term  is,  in  fact,  a  submatrix  of  the  sizes  indicated. 
When  numerical  integration  is  carried  out  at  each  integration  point 
for  the  Jacobian  form  of  Equations  90  through  98,  the  final  solution 
of  Equation  99  can  be  obtained  for  Ar,  as  and  Ah. 


MODEL  OPERATION 

Each  element  coefficient  matrix  is  assembled  into  the  main 
coefficient  matrix  by  direct  addition.  It  should  be  noted  at  this  time 
that  in  contrast  to  most  structural  applications,  the  main  matrix  is  not 
symmetrical  and  does  not  have  nonzero  diagonal  terms  in  all  locations. 
Thus,  special  care  is  required  in  ordering  the  equations. 
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When  the  main  coefficient  matrix  is  fully  assembled,  the  boundary 
conditions  are  inserted  and  the  equations  are  solved  simultaneously  for 
all  the  changes  of  r,  s,  and  h,  using  the  error  functions  as  a  right- 
hand  side. 

The  modified  r,  s,  and  h  are  then  used  to  generate  a  new  set  of 
error  functions  and  the  process  is  repeated  until  satisfactory  conver- 
gence is  reached. 

The  model  may  be  summarized  by  the  following  steps: 

1.  Describe  the  system  by  a  series  of  triangular  elements. 

2.  Make  an  initial  guess  for  the  distribution  of  r,  s,  and  h. 

3.  Develop  the  error  functions  of  all  four  equations  at  each  node 

4.  Develop  the  Jacobian  matrix  of  instantaneous  slopes  for 
each  element. 

5.  Assemble  main  coefficient  matrix  or  Jacobian  for  the  entire 
system. 

6.  Solve  simultaneously  for  correction  to  r,  s,  and  h  and 
update  r,  s,  and  h. 

7.  Repeat  steps  3  through  6  until  convergence  is  achieved. 


BOUNDARY  CONDITIONS 

The  boundary  conditions  to  be  specified  in  the  model  are  either 
the  unit  flows  in  the  x  and  y  directions  or  the  water  surface  elevations 
at  boundary  points,  depending  upon  which  information  is  available  or 
prescribed.  In  the  case  of  bridge  backwater  hydraulic  computations,  the 
water  surface  elevations  along  a  cross-section  downstream  from  the  bridge 
site  and  the  flow  of  the  stream  are  given.  These  prescribed  flow  condi- 
tions lead  to  the  specification  of  the  water  surface  elevation  along  the 
downstream  free  flow  boundary,  and  the  flow  components  along  the  upstream 
free  boundary. 
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The  boundary  conditions  along  both  banks  are  specified  so  that 
the  flow  will  follow  the  outer  edge  of  the  boundary  elements.  This 
implies  that  there  is  no  flow  normal  to  the  boundary  edge.  At  the 
corner  of  the  edges  it  is  assumed  that  flow  is  stagnant,  therefore, 
Qx  -  Qy  ■  0. 
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VI.  APPLICATION  OF  FINITE  ELEMENT  MODEL 
TO  BRIDGE  BACKWATER  COMPUTATION 


In  this  chapter  two  example  problems  are  described  in  order  to 
demonstrate  the  application  of  the  Finite  Element  Model  to  bridge  back- 
water computations.  The  first  example  is  the  calibration  of  the  model 
to  simulate  the  water  surface  profile  obtained  from  the  data  of  a  labora- 
tory model  test.  The  prismatic  nature  of  the  test  flume  and  the  bridge 
alignments  plus  the  accuracy  of  controlled  data  measurement  make  this 
example  an  ideal  case  for  testing  the  model  validity. 

The  second  example  is  the  application  of  the  Finite  Element  Model 
to  field  conditions.  In  this  example  a  flood  of  medium  size  was  first 
selected  for  model  calibration.  Two  flood  flows,  one  larger  and  the  other 
smaller  than  the  medium  flood,  were  then  simulated  using  the  calibrated 
model  parameters.  Reasonably  good  results  were  observed  from  the  model 
simulations. 

In  both  examples  the  model  did  not  include  the  effect  of  scour 
and  change  of  river  bed  form  on  backwater.  Additional  model  development 
to  incorporate  algorithms  for  bed  scour  is  needed  as  many  field  condi- 
tions may  warrant  such  considerations. 


FLOW  CONDITIONS 

TYPE  OF  FLOW 

There  are  four  major  types  of  flow  conditions  encountered  in 
bridge  waterways,  as  shown  in  Figure  7.  Briefly  these  are: 
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(SUPERCRITICAL) 

Flow  Profile  Near  a  Bridge  Site 
(Source:  Ref.  9) 
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Type  I   -  Subcritical  flow  throughout  the  flow  reaches, 

Type  II  -  Subcritical  flow  upstream  and  downstream  from 
the  bridge,  and  water  surface  passes  through 
critical  depth  in  the  constriction, 

Type  III  -  Subcritical  flow  upstream  from  the  bridge, 
critical  at  constriction,  supercritical  at 
immediate  downstream  from  the  bridge,  recover- 
ing to  subcritical  flow  again  in  the  downstream 
reaches,  and 

Type  IV  -  Supercritical  flow  throughout  the  flow  reaches. 

The  occurrence  of  each  flow  type  is  largely  governed  by  the 
slope  of  the  stream  bed,  roughness  and  the  degree  of  contraction  at  the 
bridge  site.  Types  I  through  III  usually  exist  in  streams  with  mild 
slope  located  in  flat  coastal  plain  regions.  Type  IV  exists  in  streams 
with  steep  slope  which  are  commonly  found  in  mountain  regions.  The 
differences  between  Types  I  and  II,  and  I  and  III  result  from  different 
degrees  of  contractions  at  the  constriction  and  roughness  in  stream  beds 
and  flood  plains. 

This  study  is  limited  to  the  backwater  computation  of  Type  I 
flow.  The  application  of  the  Finite  Element  Model  to  Types  II  and  III 
flow  conditions  require  a  large  additional  programming  effort  which  is 
not  incorporated  in  the  model.  Supercritical  flow  conditions  are  handled 
by  the  Finite  Element  Model  by  reversing  the  specifications  of  the  boundary 
conditions.  Depth  is  specified  at  the  upstream  boundary  and  elevation  at 
the  downstream  boundary.  This  is  the  reverse  of  the  subcritical  situation 
where  flow  is  specified  at  the  upstream  location  and  elevation  at  the 
downstream  boundary. 
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A  word  of  warning  is  required  when  modeling  systems  which,  due 
to  flow  conditions,  can  be  categorized  as  Type  II  or  III,  respectively. 
The  model  does  not  check  for  the  occurrence  of  critical  or  supercritical 
flow  in  its  present  form.  The  model  also  does  print  a  warning  for  the 
user  to  do  so.  This  problem  is  particularly  acute  at  the  location  of 
the  bridge  constriction.  The  user  must  check,  manually,  to  ascertain 
whether  the  control  section  (i.e.  the  critical  flow  region)  is  in  or 
below  the  constriction.  If  this  should  occur  the  model  results  should 
be  viewed  accordingly. 

FLOW  OVERTOPPING 

Overtopping  is  handled  in  the  model  as  described  by  equations 

100  and  101,  respectively.  The  coefficient  gamma  (y)  is  interpolated 

from  Curve  C  as  shown  in  Figure  9.  This  is  handled  internally  by  the 

Finite  Element  Model.  The  coefficient  C  is  input  to  the  model  by  the 

w 

user.  Curves  A  and  B  are  supplied  for  the  convenience  of  the  user.  If 
overtopping  should  occur,  a  statement  to  that  effect  is  printed  in  the 
output  accompanying  execution.  Typical  situations  caused  by  the 
embankment  and  superstructure  geometry  are  shown  in  Figure  8.  When 
flow  overtops  the  embankments,  weir  flow  prevails.  The  equation  used 
for  computing  the  overtopping  flow  is 

Q  =  CLH3/2  (100) 

w 

where       Q  =  flow, 

C  =  discharge  coefficient  of  broad  crest  weir, 
w 

L  =  weir  length,  and 

H  =  head  above  crest  of  weir. 
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(a)    LOW    FLOW 


(b)    COMBINATION    of  LOW  and  WEIR    FLOWS 


(c)      ORIFICE    FLOW 


(d)    COMBINATION    of    ORIFICE    and   WEIR    FLOWS 


Figure  8.     Water  Surface  Conditions  at  a  Bridge  Section 
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PERCENT  SUBMERGENCE   D/H  X  100 
84  86  88  90  92 


1.6  2.0  2.4  2.8 

HEAD  ON  ROADWAY  H  IN  FEET 


Figure  9.  Discharge  Coefficients  for  Flow  Over 
Roadway  Embankments 
(Source:  Ref.  9) 
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Equation  100  is  used  to  compute  the  discharge  under  free  flow 
conditions.  When  the  stage  at  the  downstream  side  of  the  embankment 
rises  and  exceeds  the  roadway  elevation,  the  flow  becomes  submerged. 
The  discharge  coefficient  in  Equation  100  is  reduced  under  submerged 
flow  conditions;  thus  Equation  100  becomes 

Q  =  C$LH3/2  (101) 

where       C  =  yC  and 

Y  =  a  correction  factor  for  the  discharge  coefficient 
under  submerged  flow,  a  function  of  the  ratio  of 
downstream  head  to  upstream  head  above  roadway. 
The  values  of  y  are  obtained  from  Figure  9  (see 
Ref.  9). 

An  iteration  procedure  has  been  incorporated  in  the  Finite 
Element  Model  to  handle  the  flow  overtopping  problem.  The  model 
initially  computes  the  water  surface  elevations  along  the  upstream 
face  of  the  embankment  and  then  compares  these  with  the  roadway 
elevation.  If  the  computed  water  surface  elevations  exceed  the  roadway 
elevation,  an  overtopping  flow  exists.  The  model  will  then  compute  the 
overtopping  flow  using  the  current  value  of  head  differential,  until  two 
consecutive  iterations  yield  the  same  flow  value.  Normally  one  to  two 
iterations  are  sufficient  to  achieve  the  required  accuracy.  All  of  these 
computations  are  performed  internally  once  the  required  inputs  for  weir 
characteristics  are  specified. 
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There  is  no  provision  in  the  present  model  to  perform  orifice 
flow  computations  when  the  bridge  deck  is  unundated.  Such  a  feature  may 
be  incorporated  into  the  model  during  later  model  development  when  field 
data  become  available  for  model  validation.  Presently,  the  user  must 
manually  check  for  this  condition. 


EXAMPLE  PROBLEMS 

EXAMPLE  1.      BRIDGE  BACKWATER  IN  A   20.  67 -FT  TEST  FLUME 

Physical  Set  Up 

The  bridge  backwater  experiments  were  conducted  in  a  rectangular 
concrete  flume,  20.67  feet  wide,  165  feet  long  and  2.5  feet  deep.  Bottom 
slope  of  the  flume  was  0.0022.  Artificial  roughness  elements  were  placed 
over  the  entire  flume  bottom  except  in  the  portion  under  the  bridge  opening, 

An  embankment  model  with  a  top  width  of  one  foot,  side  slopes  of 
1  to  0.3  and  a  height  of  20  inches  was  placed  perpendicular  to  the  flow 
at  Station  150,  some  60  feet  downstream  from  the  flow-establish  zone. 
The  size  of  the  bridge  opening  was  three  feet.  The  abutments  of  the  model 
bridge  were  wing  wall  type  located  equidistant  from  the  center  of  the  flume, 
Figure  10  shows  the  general  set  up  of  the  experiment. 
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The  value  of  Chezy  C  was  5.7  in  the  test  flume  and  150  across  the 
bridge  opening.  The  test  flume  and  experimental  procedures  are  described 
in  detail  in  Volume  II  of  this  final  report  series. 

Finite  Element  Representation 

In  order  to  simulate  the  flow  conditions  in  the  test  flume, 
a  representative  network  of  triangular  elements  was  developed  between 
Stations  100  and  215,  as  shown  in  Figure  11.  This  network  defines  the 
entire  flow  region  with  a  total  of  72  elements  and  177  nodal  points. 
For  each  element  the  roughness  coefficient  and  the  eddy  viscosities 
in  both  X  and  Y  directions  are  specified.  For  each  node,  the  X  and  Y 
coordinates  and  the  bottom  elevation  are  specified. 

The  boundary  conditions  are  as  follows: 


1.  Along  upstream  boundary  AG  the  nodal  unit  flow  r  =  0.25  cfs/ft 
and  s  =  0,  which  yields  a  total  flow  rate  of  5.216  cfs 
across  AG. 

2.  Along  downstream  boundary  FL,  the  water  surface  elevation  is 
11.26  feet,  the  elevation  under  normal  flow  condition. 

3.  Along  the  rigid  boundaries  AB,  BC,  CD,  DE,  EF,  GH,  HI,  IJ, 
JK  and  KL,  the  flow  is  parallel  to  the  boundary,  hence  the 
flow  normal  to  the  boundaries  is  zero. 


Model  Operation 

When  the  boundary  conditions  are  specified  and  inputs  of  system 
parameters  are  made,  the  model  computation  can  be  run.  To  begin 
computation,  the  water  surface  elevation  for  the  entire  flume  is  initialized 
at  a  horizontal  elevation  of  12.00  feet,  and  then  the  water  is  allowed 
to  move  to  its  steady-state  position  through  the  iteration  process  of  the 
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numerical  procedure.  Table  la2  lists  the  pertinent  input  data  for  the 
computation.  System  parameters  such  as  the  x  and  y  coordinates,  bottom 
elevation  and  network  geometry  data  are  presented  in  Tables  lb  and  1c. 
Note  that  the  node  and  element  numbers  are  omitted  in  Figure  11  for 
lack  of  space.  Cross  referencing  Tables  lb  and  1c  will  give  this 
information. 

A  total  of  five  iterations  are  required  to  obtain  the  steady- 
state  solution.  After  five  iterations  the  maximum  change  of  the  depen- 
dent variables  between  iteration  cycles  is: 

0.0031  cfs/ft   for  x-flow, 
0.0019  cfs/ft   for  y-flow,  and 
0.0006  ft      for  depth. 

The  model  outputs  are  listed  in  Table  2.2 

Comparison  of  Computed  and  Observed  Results 

Water  Surface  Elevation.      Figure  12  shows  the  comparison  of 
observed  and  computed  water  surface  profiles  along  the  centerline  of 
the  test  flume.  The  comparison  shows  excellent  agreement. 

Velocity  Distribution  Across  the  Bridge  Opening.     A  comparison 
of  the  observed  and  computed  velocity  distribution  across  the  bridge 
opening  is  shown  in  Figure  13.  Note  that  the  velocity  data  in  the  test 
flume  were  taken  at  the  section  of  the  vena  contracta.  At  this  location 
the  flow  is  essentially  three-dimensional,  with  contraction  in  both  the 
horizontal  and  vertical  planes.  The  velocity  was  measured  at  the  center 
and  at  both  edges  of  the  vena  contracta.  The  measurements  showed  higher 
velocities  at  the  edges  than  at  the  centerline  of  the  contracted  flow. 

2Input  and  output  tables  are  located  at  the  end  of  this  chapter  in 
order  to  minimize  the  disruption  of  the  text  discussion. 
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Figure  13.  Velocity  Profile  at  Bridge  Opening. 
Example  1  -  Test  Flume 
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The  mathematical  model  cannot  reproduce  this  three-dimensional 
contracted  flow.  The  computed  results  are  for  the  mean  flow  condition 
which  results  in  a  discrepancy  in  velocity  profile  between  the  calculated 
and  the  observed  velocity  data,  as  shown  in  Figure  13.  Nevertheless,  the 
centerline  velocity  calculation,  which  minimizes  the  above  discrepances, 
is  bracketed  by  model  computations.  Model  velocities  on  the  edge  of  the 
vena  contracta  also  demonstrate  a  reasonable  correlation  to  measured 
values.  These  two  locations  represent  points  of  high  turbulence  thus 
making  a  closer  correlation  difficult. 

EXAMPLE  2.      TALLAHALLA   CREEK  AT  STATE  HIGHWAY  528 3   MISSISSIPPI 

Site  Description 

The  bridge  site  selected  for  the  demonstration  of  the  applica- 
tion of  the  Finite  Element  Model  is  located  at  the  Route  528  crossing  of 
Tallahalla  Creek  near  Bay  Springs,  Mississippi.  This  bridge  site  was 
selected  since  hydraulic  data  for  major  floods  have  been  surveyed  and 
recorded  for  this  site  by  the  USGS.  Highwater  marks  from  three  major 
flood  events  since  1964  are  recorded  in  the  vicinity  of  the  bridge 
site.  Data  for  velocity  across  the  bridge  opening  are  also  available 
for  selected  floods.  A  map  of  the  vicinity  is  shown  in  Figure  14. 

At  present  there  is  a  500-foot  bridge  in  place.  Figure  15  shows 
a  cross  section  of  the  bridge  site.  From  abutment  to  abutment  the  bridge 
begins  at  Station  363+60  and  goes  to  Station  368+60.  The  elevation  of 
the  bridge  is  314.96.  The  width  of  the  flood  plain  at  the  crossing  site 
is  approximately  2600  feet,  that  is,  between  Stations  257+00  and  383+00. 
As  shown  in  Figure  14,  State  Highway  528  crosses  Tallahalla  Creek  at  the 
most  narrow  section  of  the  stream  near  Waldrup,  Mississippi.  The  river 
reach  at  the  vicinity  of  the  crossing  is  relatively  straight,  with  a  slight 
bend  in  the  left  bank.  The  boundaries  of  the  flood  plains  are  also 
delineated  in  Figure  14.  A  relatively  large  area  of  the  flood  plain  is 
covered  by  woodlands,  and  a  smaller  area  is  pastureland. 
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Figure  14.  Tallahalla  Creek  Site  Map 


66 


o       o       o        o        o 

—  O  9*  ff)  ^* 

IO  IO  CM  <M  CM 


o 


09  ♦  89£     oiS'inWJg 


09  .  £9C    0|S   >rq\t  JQ 


r-         <5 

CM  CM 


a) 

•  r- 

+-> 

a. 

■r™ 

Q. 

CO 

•1— 

CO 

cu 

CO 

CD 

•I— 

•o 

CO 

•r~ 

CO 

s- 

•f— 

CO 

s: 

<+- 

n 

O 

^z 

a> 

C 

0) 

o 

i. 

•  1 — 

o 

+-> 

o 

ra 

ai 

^— 

co 

1 — 

ro 

CO 

.c 

co 

ro 

o 

i — 

S- 

^— 

C_> 

fO 

1— 

Ln 

CNJ 

cu 

O) 

s- 

r— 

Z5 

Q. 

CD 

E 

•^ 

ro 

Ll_ 

X 

LxJ 

67 


•*.*■_«'":* 


Site  Data 

Topographic  data  in  the  vicinity  of  the  bridge  site  including 
the  flood  plains  were  obtained  from  U.S.  Geological  Survey  quadrangle 
maps  and  cross  sections  of  the  stream  valley  taken  in  the  U.S.  Geological 
Survey  field  surveys.  Information  on  bridge  and  roadway  profiles  was 
also  furnished  by  the  staff  of  the  USGS.  The  spatial  distribution  of 
hydraulic  roughness  in  the  flow  region  was  estimated  based  upon  aerial 
photographs  and  the  roughness  data  were  estimated  by  the  USGS  field 
party  for  each  cross  section. 

Finite  Element  Network 

The  finite  element  network  which  represents  the  flow  region 
of  the  Tallahalla  Creek  site  is  shown  in  Figure  16.  The  network  consists 
of  199  nodal  points  and  86  elements.  Note  that  the  actual  flow  boundaries 
along  both  sides  of  the  river  (dotted  lines)  have  been  approximated  in  the 
network  by  straight  lines.  The  dotted  lines  are  the  surveyed  highwater 
marks  observed  by  the  USGS  from  the  flood  of  April  14,  1969,  which  had 
a  peak  discharge  of  12,500  cfs.  These  same  boundaries  have  been  used 
for  all  floods  simulated  in  this  study,  since  field  data  gathered  by 
the  USGS  for  the  larger  and  smaller  floods  show  approximately  the  same 
boundaries  as  the  April  1969  flood. 

The  main  channel  is  ignored  in  the  network  set  up  except  for  that 
portion  near  the  bridge  opening.  The  general  rule  for  laying  out  the 
network  is  to  place  smaller  size  triangles  in  the  area  where  the  most 
significant  variation  in  flow  parameters  is  expected,  and  larger  size 
triangles  where  less  variation  is  expected.  This  approach  is  clearly 
illustrated  in  Figure  16.  The  spatial  distribution  of  the  flood  plain 
vegetative  cover  is  also  shown  in  Figure  16. 
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Three  separate  flood  events  were  computed.  Table  3  gives  the 
magnitude  of  flood  peaks  and  dates  of  occurrence  of  these  floods. 

Table  3.  Flood  Peaks  and  Dates  of  Occurrence 

Date  Peak  (cfs)  Remarks 

April  6,  1964       22,000  Flow  overtopping 

along  left  bank 
(Ref.  26) 

April  14,  1969      12,500  Data  from  USGS 

February  21,  1971     7,140  Data  from  USGS 

The  data  from  the  April  1969  flood  were  used  to  calibrate  the 
model.  The  input  data  for  this  flood  are  given  in  Table  4,  and  the  outputs 
in  Table  5.  Figure  17  shows  the  results  of  the  computation. 

The  observed  and  computed  values  of  velocity  under  the  bridge 
are  compared  in  Figure  18.  Note  that  the  field  velocity  data  were 
collected  at  twenty  and  eighty  percent  of  the  depth,  respectively.  The 
computed  velocities  represent  the  average  value  at  each  node.  Also  note 
that  the  computed  velocity  data  are  for  a  flow  rate  of  9,780  cfs  rather 
than  the  12,500  cfs. 

After  the  model  had  been  calibrated  for  the  1969  flood,  it  was 
used  to  simulate  the  flow  conditions  resulting  from  the  two  other  flood 
events,  in  1964  and  1971.  The  peak  values  of  these  floods  are  shown  in 
Table  3.  Notice  that  the  peak  of  the  1964  flood  is  higher  than  the  1969 
flood,  and  the  1971  peak  is  lower.  Such  a  selection  of  flood  peaks  allows 
the  model  to  be  tested  for  its  predictive  capability. 
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The  input  data  for  the  flood  of  1964  are  listed  in  Table  6,  and 
the  output  is  shown  in  Table  7.  Input  and  output  data  for  the  1971  flood 
are  shown  in  Tables  8  and  9,  respectively.  System  parameters  for  these 
two  flood  simulations  are  the  same  as  those  given  in  Tables  4b  and  4c 
for  the  1969  flood  simulation.  The  results  of  these  simulation  runs  are 
shown  in  Figures  19  and  20.  As  can  be  seen,  field  data  for  the  1971 
flood  were  not  as  complete  as  for  the  1964  flood.  Nevertheless,  agree- 
ment between  the  model  results  and  the  field  data  has  been  satisfactory 
for  both  events. 
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Table  la.  Input  Data  for  Example  1  -  Test  Flume 


1 .  Run  Parameters 

Total  Number  of  Nodes  177 
Total  Number  of  Elements  72 
Element  Types  5 

2.  Element  Characteristics 


Element 
Type 

"x 

(lb-sec/ft2) 

(lb-sec/ft2) 

Chezy  C 

1 

1.0 

1.0 

5.7 

2 

0.5 

0.5 

5.7 

3 

0.5 

0.5 

150 

4 

0.5 

0.5 

150 

5 

0.5 

0.5 

150 

3.  Boundary  Conditions 


Node 

X-Flow 
(cfs/ft) 

Y-Flow 
(cfs/ft) 

W.S.   Elevation 
(ft) 

1 

11.27 

2 

11.26 

3 

11.25 

4 

11.25 

5 

11.25 

173 

0.25 

174 

0.25 

175 

0.25 

176 

0.25 

177 

0.25 
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Table  lb.  Nodal  Coordinates  and  Bottom  Elevations 
Example  1  -  Test  Flume 


OE 

X-LUC 

y-tuc 

ELEV 

{FEET) 

(»ttu 

(FEET) 

1 

215, 00 

0,00 

10,4 

2 

21b,  00 

5.15 

10,3 

) 

215.00 

10,30 

10,3 

4 

215.00 

15.50 

10,3 

5 

215.00 

20,70 

10,3 

6 

202,50 

0,00 

10, « 

1 

402.50 

5.15 

10,4 

6 

202.50 

10,30 

10.4 

9 

202.50 

lb, 50 

10,4 

10 

202,50 

20.70 

10,4 

It 

190.00 

0.00 

10,4 

12 

190.00 

5,15 

10, a 

13 

190.00 

10,30 

10,4 

l« 

190,00 

15,50 

10,4 

15 

190,00 

20(70 

10,4 

lb 

1*0.00 

0,00 

10.4 

17 

180,00 

5, is 

10,4 

IS 

180,  00 

10,30 

10,4 

1» 

180,00 

15,50 

10.4 

20 

180,00 

20.70 

10.4 

21 

170,00 

0,00 

10,4 

22 

170,00 

5,15 

10,4 

23 

170,00 

10,30 

10,4 

2d 

17^.00 

15.50 

10,4 

25 

170,00 

20.70 

10,4 

26 

lbb.00 

0,09 

10,5 

27 

16b, 00 

5,15 

10.5 

28 

165,00 

10,30 

10,5 

29 

165.00 

15.50 

10,4 

30 

165, 00 

20,70 

10,  b 

31 

160,00 

0.00 

10,5 

32 

160,00 

5.15 

10.5 

il 

160,00 

10.30 

10.5 

J4 

160,00 

15,50 

10,  b 

35 

160,00 

20.70 

10,7 

H 

15/, 50 

0,00 

10,5 

37 

157,50 

5.15 

10,5 

38 

157,50 

10.30 

10,5 

3"» 

157.50 

15.50 

10,6 

40 

15?. 50' 

20.70 

10.6 

ul 

155,00 

0,00 

10,5 

42 

155.00 

5.15 

10,5 

41 

155,00 

10,30 

10,5 

44 

155.00 

J5.50 

10.5 

45 

15S.00 

20.70 

10,5 

4b 

153.00 

0.00 

10,5 

47 

153.25 

.25 

10.5 

48 

153,75 

5,15 

10.5 

49 

153,75 

10.30 

10.5 

50 

153.75 

15.50 

10.5 

ooe 

X-LUC 

y»Luc 

EltV 

(FEET) 

(FEE!) 

{FEED 

153,25 

20,  4b 

10.5 

153.00 

2o,70 

10,5 

151  .00 

0,00 

10,5 

151.25 

.25 

10.5 

151.50 

.50 

10,5 

IS2.00 

5.40 

10,5 

152.59 

10,30 

10.5 

152.00 

15.25 

10,5 

151.50 

20,20 

10,5 

151.25 

20,-5 

10,5 

151.00 

20.70 

10,5 

151,00 

u,  10 

10,5 

151.25 

«,55 

10.5 

151.50 

4,65 

10.5 

154. 00 

9.55 

10,5 

152.00 

10.30 

10,5 

152.00 

11.05 

10,5 

151.50 

16.00 

10,5 

151.25 

lb, 15 

10,5 

151.00 

lb, 40 

10,5 

151,00 

8.60 

10.5 

151 .25 

0,  70 

10.5 

151, bO 

0,60 

10.5 

151,  bO 

9,55 

10,5 

151,50 

10.30 

10,5 

151.50 

1  1.05 

10, S 

151 .50 

11.80 

10,5 

78 

151,25 

11.95 

1ft. 5 

79 

1S1 .00 

12.10 

10.5 

60 

150,00 

0,oO 

10.5 

91 

14V, 7b 

0.70 

10,5 

82 

150. oO 

8,60 

10.5 

63 

150.00 

9,bb 

10,5 

64 

150,00 

10.30 

10,5 

45 

150,00 

11.0b 

10,5 

8b 

150,00 

11,80 

10.5 

67 

149,75 

11.95 

10,5 

68 

150.00 

12,10 

10,5 

«9 

14V, 00 

0,00 

10.5 

vo 

146.75 

6,70 

10,5 

91 

146,50 

0,00 

10,5 

92 

146,50 

9,b5 

10.5 

93 

146.50 

10.30 

10,5 

9<i 

148,50 

11.09 

10. 5 

95 

146,50 

11.60 

10.5 

96 

140,75 

it.  vb 

10,5 

97 

149,00 

12,10 

10,5 

98 

149.00 

4,10 

tO, 5 

99 

140.75 

4,5b 

10,5 

too 

110,50 

4, ob 

to, 5 
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Table  lb.     (Continued) 


ooe 

x.iuc 

(►tET> 

101 

l«o 

,00 

102 

148 

,00 

103 

148 

00 

104 

146 

,50 

105 

146 

75 

10c 

149 

00 

107 

149 

00 

108 

148 

75 

109 

148 

50 

110 

J48 

00 

111 

147 

50 

112 

148 

00 

113 

148 

50 

114 

148 

75 

115 

149 

00 

116 

147 

50 

117 

147 

25 

118 

Hb 

7  5 

119 

146 

?5 

120 

146 

75 

121 

14? 

i% 

122 

i«7 

50 

123 

l«b 

00 

124 

146 

00 

125 

14b 

00 

12b 

140 

00 

127 

14b 

UO 

128 

14l| 

50 

129 

144 

50 

130 

144 

50 

131 

(44 

5  0 

132 

{44 

50 

133 

143 

00 

134 

143 

00 

liS 

i4j 

00 

136 

1«3 

00 

137 

143 

00 

13d 

14» 

,50 

139 

141 

50 

y*iuc 

9.55 
10,30 
11,05 

lb.  uO 

16,15 

16,40 

0.00 

.<*5 

.so 

5,40 

10.30 

15,^5 

20,20 

20,45 

20.70 

0,00 

.25 

5,15 

10,30 

15.50 

20,45 

20,70 

0,00 

5.15 

10,30 

15,50 

20,70 

0,00 

5,15 

10.30 

15.50 

20,70 

0,00 

5,15 

10.30 

15.50 

20,70 

0,00 

5. IS 


fcLtV 

int'n 

10. '5 
10.5 
10, S 
10,5 
10,5 
10,5 
10,5 
10,5 
10, S 
10,5 
10,5 
10.5 
lo.S 
10,5 
10,5 
10.5 
10,5 
10,5 
10,5 
10, S 
10,5 
10.5 
10,5 
10.5 
10.5 
10.5 
10,5 
10.5 
10.5 
10,5 
10,5 
10,5 
10.5 
10.5 
10.5 

l'o.  s 

10,5 
10,5 
JO.S 


ODE 

x-luC 

y.iuc 

CFee  t j 

<»ti!) 

140 

141,50 

10. 30 

141 

141,50 

15.50 

142 

141,50 

20,70 

14J 

140.00 

0,00 

144 

140,00 

5.15 

145 

140,00 

10.30 

146 

140,00 

15,50 

147 

14J,00 

20,70 

149 

135,00 

0,00 

149 

135,00 

5.15 

150 

1 .55,00 

10,30 

151 

135,00 

15.50 

152 

135,00 

20,70 

153 

130,00 

0,00 

154 

13o,00 

5.15 

155 

130,00 

10,30 

156 

130,00 

15, '50 

157 

130,00 

2<J.  70 

158 

125,0  0 

0,00 

159 

125,00 

5,15 

160 

125,00 

10.30 

161 

125.00 

15.50 

162 

125.00 

20,70 

163 

120.00 

0,00 

164 

120.00 

5,15 

165 

120,00 

10,30 

166 

120,00 

15.50 

167 

120.00 

20,70 

168 

1  10, 00 

0,00 

169 

110,00 

5*15 

170 

110,00 

10,30 

in 

110,00 

15,50 

172 

110, UO 

20,70 

173 

icu.oo 

0,00 

17« 

100,00 

5.15 

175 

100.00 

10,30 

1/6 

100.00 

15,50 

177 

100,00 

20,70 

EUV 
CFfcET) 
10,5 
10,5 
10.5 
10,5 
10,5 
10,5 
10,5 
10,5 
10,6 
10.5 
10,5 
10,5 
10.5 
10,6 
10, a 
10,5 
10,5 
!0,5 
10,6 
10, O 
10,6 
10,6 
10,6 
10,6 
10,6 
10,6 
10.6 
10,6 
10,6 
10,6 
10.6 
10,6 
10,6 
10,6 
10,6 
10,6 
10,6 
10.6 
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Table  4a.      Input  Data  for  Example  2 
Flood  of  1969,  Q  =  12,500  cfs 

Run  Parameters 

Total    Number  of  Nodes  199 

Total   Number  of  Elements  86 

Element  Types  7 

Element  Characteristics 


Element 
Type 

(lb 

bx 
-sec/ft2) 

by 

(lb-sec/ft2) 

Chezy  C 

1 

75 

50 

42 

2 

50 

50 

42 

3 

300 

200 

12 

4 

500 

250 

15 

5 

500 

250 

15 

6 

300 

250 

42 

7 

750 

750 

42 

3.     Boundary  Conditions 


X-Flow 

Y-Flow 

W.S.   Elevation 

Node 

(cfs/ft) 

(cfs/ft) 

(ft) 

1 

308 

2 

308 

3 

308 

4 

308 

5 

308 

6 

308 

7 

308 

8 

308 

9 

308 

191 

4.51 

192 

4.51 
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Table  4a.   (Continued) 


Boundary  Conditions 


X-Flow 

Y-Flow 

W.S.   Elevation 

Node 

(cfs/ft) 
4.51 

(cfs/ft) 

(ft) 

193 

194 

4.51 

195 

4.51 

196 

4.51 

197 

4.51 

198 

4.51 

199 

4.44 

0.82 
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Table  4b.  Nodal  Coordinates  and  Bottom  Elevations 
Example  2  -  Tall  anal  la- Creek,  Mississippi 


:oe 

X-l 

.CC 

y-tcc 

ELEV 

(FEI 

ET) 

(FEET) 

(FEET) 

1 

-16C 

.00 

1350.00 

305.  e 

2 

-286 

.1.7 

1750.00 

305.0 

3 

-*12 

.9* 

2150.00 

305.0 

* 

-<i91 

.99 

2i-CC.CC 

30*. 7 

5 

-571 

.03 

2653. CO 

331..* 

6 

-673 

.79 

2975.00 

30*. 2 

7 

-776, 

,5* 

33nn.oo 

30*. 0 

8 

-e°3 

.27 

3685. CO 

30*. 5 

9 

-1023, 

.CO 

*370.C3 

335. C 

10 

-310 

.00 

121.5.62 

305.2 

11 

-*i  *♦  0  . 

.  00 

1500.00 

305.1 

12 

-566. 

,k7 

19CC.CC 

305.1 

13 

-e«.5, 

,51 

2153. 00 

30*. 8 

1* 

-€i*0  . 

.51 

2330.00 

30*. 7 

15 

-  =  '.3, 

;27 

2655. 00 

3U*.5 

16 

-1153, 

,27 

2853. CC 

30*.  5 

17 

-1273, 

,00 

3235. CC 

30  5.0 

18 

-153-3, 

.CO 

3i.66.13 

305.5 

19 

-<460, 

,00 

Hi.1.2'. 

305.5 

20 

-593, 

.CO 

1395.62 

305.* 

21 

-723, 

.GO 

1650.00 

305.3 

22 

-=15 

.CO 

18  3  0.00 

305.1 

23 

•inn, 

,00 

2iim.oo 

305.0 

2* 

-1323. 

,C0 

22C5.C0 

305. C 

25 

2 1.  3  C  .  C  0 

305. C 

26 

-1785, 

,  CC 

2631.1  3 

305.5 

27 

-201.0, 

,  no 

2862.27 

306.0 

28 

-753, 

.CO 

9  39  •  l.  3 

30*. 7 

29 

-935, 

,00 

1395.62 

305.2 

30 

-1C35. 

,00 

1350.00 

305.1 

31 

-1230, 

,  00 

1530.00 

305.0 

32 

-1*20, 

,00 

1725. CC 

30*. 2 

33 

-1630. 

,00 

1923. CC 

30*. 2 

31. 

-1813, 

,00 

2 1  C  C  .  C  C 

305.5 

35 

-2065, 

,00 

2331.13 

306.0 

36 

-2315, 

,00 

2i.81.13 

306. C 

37 

-231.5, 

.CO 

2501.13 

30  6.0 

38 

-1C*0. 

,00 

737.63 

30*. 0 

39 

-1195, 

.  00 

893.81 

30*. 5 

<.o 

-1350, 

,00 

1050. OC 

305.0 

kl 

-15*3. 

00 

121.5.00 

30*. 2 

*2 

-1730. 

.00 

li.  1.0. CO 

303.5 

1.3 

-1910. 

00 

1620.00 

30*. 7 

*■* 

-2C93. 

,  00 

1803. CO 

3C6.0 

i*5 

-23*C. 

CO 

195". CO 

336.0 

1.6 

-2593. 

,C0 

2  1  C  0  .  C  0 

306.0 

*7 

-2620, 

,00 

2120.00 

306.0 

1.8 

-2650, 

,00 

21*0.00 

306.0 

*9 

-1573, 

,00 

368.81 

30*. 7 

50 

-1575. 

,00 

*13.81 

33*. 7 

•JODE 

X- 

LCC 

y-Loc 

ELEV 

(FZ 

ET) 

(FEET) 

(FEET) 

51 

-1600 

.00 

6*8. 81 

30*./ 

52 

-1755 

.CO 

ec5. cc 

335.2 

53 

-1755 

.CC 

985.C0 

30*.  C 

5* 

-19*5 

.CC 

nec.oo 

303.2 

55 

-2065 

.  00 

1370. 00 

30*. 2 

56 

-22*5 

.  CC 

1550. CO 

305.5 

57 

-2377 

.50 

i  6  1 0  .  C ■  C 

305.7 

58 

-2627 

.50 

1760. CO 

305.7 

59 

-2657 

.50 

1780. CO 

305.7 

6C 

-2100 

.CO 

o.co 

335.5 

61 

-21C5. 

.00 

1.5. CC 

335.5 

62 

-2113. 

.CO 

93. CO 

305.5 

63 

-2135, 

.00 

325.00 

305.5 

6* 

-2163. 

.00 

563. CO 

305.5 

65 

-2163, 

.CO 

71.3. CC 

30*. 2 

66 

-2163 

.CO 

920. GC 

303. C 

67 

-2280, 

,00 

1110.00 

30*. 0 

68 

-2*00. 

.00 

13C0.CC 

305. C 

69 

-2532, 

,50 

1363. CO 

305.2 

70 

-2665, 

,C0 

1*2C.C0 

305.5 

71 

-2385, 

,00 

330. OC 

302.7 

72 

-2375, 

,00 

3*0. CO 

302.7 

73 

-2383, 

,00 

385. CO 

3C2.7 

71. 

-2*C5, 

,00 

62Q.CC 

302.7 

75 

-2*05, 

,00 

680.00 

301.7 

76 

-2*05, 

,00 

860.00 

33  C.  5 

77 

-2*05, 

,00 

96C.CC 

303.5 

78 

-2*C5, 

.00 

13*0. GO 

303.7 

79 

-2525, 

,  00 

1230. 00 

30*. 7 

80 

-2657, 

,5C 

1290. CC 

30*. 9 

81 

-2667, 

,  50 

1 3  G  3  .  C  0 

3d*. 9 

82 

-2  6  73. 

,00 

66C.0C 

30C  .0 

83 

-2660, 

,00 

670. 00 

300.0 

8* 

-2653. 

,00 

680. DC 

30C.O 

85 

-2653, 

30 

7*0. CO 

299.0 

86 

-2650. 

CO 

8C0.00 

298.0 

87 

-2650, 

00 

900.00 

301.0 

88 

-2650. 

.00 

1CC0.CC 

30*. C 

89 

-2653. 

00 

1380. CO 

30*. 2 

90 

-2650. 

00 

1160.00 

30*.* 

91 

-2660. 

00 

1170. 00 

3m.. * 

92 

-2673. 

.CO 

1180. CC 

3C*.* 

93 

-2700. 

00 

660. 00 

300  .0 

9* 

-2690. 

.00 

670.00 

300.0 

95 

-2700. 

no 

680.00 

299.0 

96 

-2700. 

00 

7*0.00 

299.0 

97 

-27CG. 

CO 

8CC.00 

298.0 

98 

-2700. 

00 

900.00 

301.0 

99 

-2700. 

00 

IOUO.00 

30*.  0 

10  0 

-2700. 

CO 

1080. CC 

30*. 3 
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Table  4b.     (Continued) 


ODE 

X-LCC 

V-LOC 

E.LEV 

(FEET) 

(FEET) 

(FEET) 

iOi 

-273C. 

CO 

nee 

00 

304 

5 

102 

-2690 

00 

1170 

on 

30i« 

5 

103 

-2700 

CO 

116C 

00 

304 

5 

1C  '* 

-2730. 

CO 

66C 

00 

3C0 

0 

105 

-271.C. 

C3 

c70 

00 

29T 

0 

106 

-2750 

on 

680 

00 

298 

0 

107 

-2750. 

00 

7i.C 

00 

298. 

3 

ica 

-2750 

CG 

ecc 

00 

293 

0 

109 

-2750. 

CO 

9GG 

00 

301 

3 

110 

-2750. 

uo 

1GG0 

00 

304 

o 

111 

-2750. 

00 

ioec 

00 

3C 

3 

112 

-2750. 

00 

116C, 

oc 

3C4 

6 

113 

-271.0 

00 

1170 

CO 

3C4 

6 

n't 

-273n. 

nn 

nan. 

DO 

30". 

6 

115 

-2730 

CO 

33C 

00 

3C 

0 

116 

-2755 

CO 

37G 

00 

304 

3 

117 

-2765 

CO 

38C 

00 

303 

0 

i".a 

-29J0 

0  0 

660 

00 

302 

0 

119 

-2930 

CO 

72C 

00 

302 

0 

123 

-2965 

o 

<m 

00 

3C1. 

a 

121 

-2965 

GO 

10  1C 

00 

30". 

0 

122 

-2965 

no 

1090 

00 

304 

3 

123 

-287C 

CO 

128C 

00 

3C5 

3 

124 

-271.: 

CO 

129C 

00 

305 

5 

125 

-2730. 

CO 

130C 

n0 

305 

5 

126 

-2730 

on 

0 

00 

30  8 

0 

127 

-2755 

CO 

1.0 

0  0 

3C3 

0 

12* 

-2780 

CO 

8C 

00 

308 

3 

129 

-2945 

CO 

36C 

00 

3C7 

0 

13  0' 

-3110 

Of) 

£1.0 

no 

306 

0 

131 

-311.5 

CO 

83C 

00 

3C5 

0 

132 

-3180 

CO 

1C2G 

CO 

304 

3 

133 

-3C85 

CO 

1210 

00 

3C5 

3 

134 

-2990 

00 

li.no 

00 

3ns 

0 

135 

-286  0 

CO 

11.10 

00 

3C6 

3 

136 

-273C 

CO 

142C 

00 

306 

5 

137 

-3200 

00 

c 

00 

3C3 

1 

138 

-3225 

00 

1.0 

.00 

308 

i 

139 

-33911 

00 

320 

.00 

307 

1 

lt.0 

-31.05 

.00 

77C 

.CO 

307 

.1 

l«.l 

-3i*i»0 

00 

96C 

.00 

3C6 

1 

142 

-3i»  1.(1 

.  00 

1235 

.00 

306 

.1 

11.3 

-331.5 

no 

11.25 

.00 

307 

.1 

144 

-3195 

.  CO 

17C0 

.OC 

3C7 

.5 

1m5 

-2900 

.CO 

177f 

.00 

307 

.5 

1U6 

-277(1 

.  no 

17S0 

.on 

307 

.7 

l«t7 

-273d 

.00 

1765 

.00 

307 

.7 

11.8 

-3670 

.  CO 

0 

.CO 

3G8 

,2 

11.9 

-3685 

.CO 

*5(, 

.00 

308 

.2 

150 

-3700 

.no 

sno 

.no 

308 

.2 

CDF. 

X-LCC 

y-tcc 

ELEV 

(FEET) 

(FEET) 

(FEET) 

151 

-3700 

.00 

1175 

.(10 

303 

.2 

152 

-3700 

.00 

1450 

.00 

30  3 

.2 

153 

-3550 

.CO 

1725 

.00 

308 

6 

154 

-34U0 

.  (10 

2cno 

.00 

309 

0 

155 

-31U5 

.  00 

2070 

.00 

309 

.3 

156 

-2310 

.CO 

214C 

.00 

309 

.0 

157 

-2770 

,00 

2145 

.00 

309 

0 

158 

-2730 

.oc 

2150 

.00 

309 

.a 

159 

-1.01.5 

00 

0 

.00 

3C3 

.6 

160 

-4060 

CO 

1.5C 

OC 

308 

6 

161 

-4060 

CG 

8CC 

.00 

3C8 

.3 

162 

-4060 

,00 

1135 

00 

309 

4 

163 

-t.n6n 

00 

11.1(1 

uo 

303 

I* 

16m 

-4050 

CO 

1775 

CO 

3C  3 

.6 

165 

-3900 

CO 

2C5C 

00 

309 

3 

166 

-3805 

.00 

2  4  75 

.00 

309 

1 

167 

-3510 

00 

2545 

00 

309 

1 

168 

-3470 

CO 

255C 

.00 

309 

1 

169 

-3465 

00 

2575 

OQ 

309 

1 

170 

-1.420 

no 

0 

00 

309 

0 

171 

-4420 

n  n 

351) 

on 

3CS 

7 

172 

-  4  4  2  0 

CO 

70C 

00 

3C3 

4 

173 

-4420 

CO 

1035 

CO 

308 

5 

174 

-4420 

00 

1370 

on 

308 

6 

175 

-4410 

uo 

1735 

00 

308 

8 

176 

-44J0 

00 

21CC 

00 

309 

3 

177 

-4305 

CO 

2525 

00 

3C9 

1 

178 

-4210 

oo 

2950 

00 

309 

2 

179 

-4205 

00 

2975 

00 

3C9 

Z 

180 

-42u0 

CO 

3CCC 

0  0 

3C9. 

2 

181 

-4935. 

CO 

C 

oo 

3C9 

3 

182 

-4935 

CO 

350 

00 

308 

7 

183 

-4935. 

00 

eeu 

00 

3C3 

6 

184 

-4935. 

CO 

985, 

CO 

308 

4 

185 

-4935. 

C3 

1320 

00 

3C8 

5 

186 

-4935 

00 

1635 

00 

308 

9 

187 

-1.925, 

00 

2  0  00 

no 

3C9 

1 

188 

-4925 

CO 

24J5 

?c 

3C9 

2 

189 

-4630. 

CO 

266C, 

oc 

309 

4 

190 

-4825, 

no 

2885 

00 

309 

4 

191 

-5450. 

CO 

U 

CO 

309 

1 

192 

-5450. 

CO 

31C 

00 

3C9 

0 

193 

-5450. 

00 

62C. 

00 

308 

9 

194 

-5450. 

00 

945, 

00 

308. 

6 

195 

-5450. 

oo 

127C. 

00 

308, 

4 

196 

-5450. 

03 

1585. 

00 

3C8. 

9 

197 

-5450. 

CO 

190C. 

00 

309. 

2 

198 

-5450. 

00 

2335, 

00 

309. 

H 

199 

-5450. 

CO 

277C. 

OQ 

309. 

5 
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Table  6.     Input  Data  for  Example  2  - 
Flood  of  1964,  Q  =  22,000  cfs 


1 .  Run  Parameters 

Total  Number  of  Nodes  199 
Total  Number  of  Elements  86 
Element  Types  7 

2.  Element  Characteristics 


Element 
Type 

(lb 

bx 

-sec/ft2) 

(lb 

-sec/ft2) 

Chezy  C 

1 

75 

50 

42 

2 

50 

50 

42 

3 

300 

250 

12 

4 

500 

250 

15 

5 

500 

250 

15 

6 

300 

250 

42 

7 

750 

750 

42 

3.     Boundary  Conditions 


X-Flow 

Y-Flow 

W.S.   Elevation 

Node 

(cfs/ft) 

(cfs/ft) 

(ft) 

1 

309.9 

2 

309.9 

3 

309.9 

4 

309.9 

5 

309.9 

6 

309.9 

7 

309.9 

8 

309.9 

9 

309.9 

191 

7.94 

192 

7.94 
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m 


■M 


Boundary  Conditions 


Table  6.  (Continued) 


X-Flow 

Y-Flow 

W.S.   Elevation 

Node 

(cfs/ft) 
7.94 

(cfs/ft) 

(ft) 

193 

194 

7.94 

195 

7.94 

196 

7.94 

197 

7.94 

198 

7.94 

199 

7.81 

1.44 
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Table  8.     Input  Data  for  Example  2 
Flood  of  1971,  Q  =  7,140  cfs 


1 .  Run  Parameters 

Total   Number  of  Nodes  199 

Total   Number  of  Elements  86 

Element  Types  7 

2.  Element  Characteristics 


Element 
Type 

bx 
(lb-sec/ft2) 

(lb 

-sec/ft2) 

Chezy  C 

1 

75 

50 

42 

2 

50 

50 

42 

3 

300 

250 

12 

4 

500 

250 

15 

5 

500 

250 

15 

6 

300 

250 

42 

7 

750 

750 

42 

3.     Boundary  Conditions 


X-Fl 

ow 

Y-Flow 

W.S.   Elevation 

Node 

(cfs/ft) 

(cfs/ft) 

(ft) 

1 

307.40 

2 

307.40 

3 

307.40 

4 

307.40 

5 

307.40 

6 

307.40 

7 

307.40 

8 

307.40 

9 

307.40 

191 

2. 

58 

192 

2. 

58 
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Table  8.  (Continued) 


Boundary  Conditions 


X-Flow 

Y-Flow 

W.S.  Elevation 

Node 

(cfs/ft) 
2.58 

(cfs/ft) 

(ft) 

193 

194 

2.58 

195 

2.58 

196 

2.58 

197 

2.58 

198 

2.58 

199 

2.44 

0.82 
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VII.  COMMENTS  ON  MODEL  APPLICATION 


In  Chapter  VI  it  is  shown  that  the  Finite  Element  Model  is 
capable  of  reproducing  both  laboratory  and  field  hydraulic  conditions 
with  reasonable  accuracy.  As  is  the  case  with  most  existing  mathematical 
models,  however,  the  Finite  Element  Model  is  subject  to  certain  practical 
limitations.  These  limitations  may  eventually  be  overcome  in  the  course 
of  applying  the  model.  In  particular,  better  approximations  will  be  made 
for  some  of  the  coefficients  (e.g.,  eddy  viscosities)  in  the  model.  For 
field  applications  the  Finite  Element  Model  has  four  limitations: 


1.  Fixed  Flow  Boundary.      In  the  construction  of  the  finite 
element  network  system  the  delineation  of  flow  boundaries 
along  both  channel  banks  is  preassumed.  While  such  an 
assumption  for  flows  in  rectangular  channels  is  essen- 
tially correct,  it  is  an  approximation  for  natural  channels. 
Flow  in  natural  open  channels  seldom  follows  common  flow 
pathways  along  the  banks  for  all  discharges;  the  greater 
the  flow,  the  wider  the  cross-sectional  surface  width  over 
flood  plains.  This  is  particularly  true  for  streams  having 
mild  bank  slopes. 

One  way  of  delineating  the  flow  boundaries  is  to  take  the 
average  boundary  of  high  and  low  flows.  Unless  the  flood 
plain  is  unusually  flat,  the  blow  boundary  thus  defined 
would  be  sufficiently  accurate  for  network  construction. 
It  would  be  most  helpful  if  data  on  high  water  marks  were 
available  for  an  intermediate  flood. 

2.  Effect  of  Element  Size  on  Solution  Ac curacy .  Mathematically 
the  finite  element  approximation  converges  to  an  exact 
solution  as  element  size  approaches  zero.  In  practical 
application  it  is  unrealistic  to  specify  a  finite  element 
network  in  such  great  detail  to  give  a  near  closed-form 
solution.  The  user  is  often  under  the  constraint  of 
computational  cost  and  limited  computer  storage.  The  user 
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is  interested  in  a  reasonably  acceptable  level  of  accuracy 
within  a  reasonable  range  of  computer  costs.  Consequently, 
from  the  user's  viewpoint  a  network  with  the  least  amount  of 
detail,  with  an  acceptably  accurate  solution,  will  be  the 
desirable  selection.  Unfortunately  there  has  not  yet  been 
developed  a  procedure  for  determining  the  most  cost-effective 
FEM  network.  We  may  speculate  that,  as  more  experience  is 
gained  in  finite  difference  numerical  methods,  it  will  be 
shown  that  the  level  of  network  detail  is  governed  by  the 
degree  of  variation  in  system  variables  that  the  model  is 
to  solve.  Therefore  we  suggest  that  networks  should  be 
constructed  with  more  detail  in  areas  where  the  gradients  of 
the  system  variables  are  expected  to  be  great  and  with  less 
detail  in  areas  where  gradients  are  expected  to  be  small  or 
where  accuracy  is  not  required.  In  the  case  of  two-dimensional 
problems,  this  means  that  different  levels  of  detail  can  be 
used  in  regions  where  gradients  are  expected  to  be  small. 
This  is  illustrated  in  the  example  problems  in  the  preceding 
chapter.  For  both  laboratory  and  field  examples,  larger 
size  elements  were  specified  for  upstream  and  downstream  flow 
regions,  and  detailed  or  smaller  size  elements  were  specified 
for  the  areas  near  the  bridge  openings. 


3.  Estimate  of  Turbulent  Exchange  Coefficients.      An  input 

required  to  operate  the  FEM  is  the  coefficients  representing 
eddy  viscosities.  Although  there  has  been  much  research 
on  these  coefficients  over  the  years,  equations  to  develop 
a  reasonable  estimate  of  these  values  are  still  lacking. 
It  has  been  recognized  that  the  magnitude  of  eddy  viscosities 
is  determined  by  the  factors  of  scale  of  motion,  depth, 
velocity,  velocity  gradient,  and  relative  time  scale.  Thus 
the  value  of  eddy  viscosities  for  the  prototype  would  be 
different  from  that  of  the  scale  model. 

The  significance  of  the  turbulent  exchange  coefficients  is 
determined  by  the  relative  magnitude  of  the  terms  containing 
these  coefficients  and  the  inertia!  terms  in  the  equations 
of  motion.  In  cases  where  the  flow  behavior  is  dominated 
by  the  inertial  terms  the  viscous  forces  become  insignificant; 
thus  the  solutions  of  flow  equations  will  not  be  very 
sensitive  to  the  exchange  coefficients.  In  practical 
applications  however,  we  frequently  encounter  a  situation 
where  the  inertial  forces  and  viscous  forces  are  approximately 
equal  in  magnitude.  In  this  case  proper  specification  of 
exchange  coefficients  becomes  essential  to  accurate  model 
results. 
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The  hydraulic  behavior  of  bridge  waterways  is  a  case  in 
point  where  the  inertia!  forces  and  viscous  forces  may 
have  equal  importance  in  the  vicinity  of  the  bridge.  When 
flood  water  passes  through  the  bridge  opening,  its  flow 
is  contracted  upstream  from  the  bridge  and  under  the  bridge, 
and  expanded  downstream  from  the  bridge.  During  the  process 
of  flow  contraction  and  expansion,  the  flow  separates  around 
the  bridge  abutments  and  thus  generates  eddies  and  intensive 
turbulence  exchange.  On  the  other  hand,  in  the  same  region 
flow  contraction  and  expansion  result  in  rapid  variation 
in  water  surface  and  flow  velocity  which  are  phenomena  of 
inertial  forces.  In  this  region  both  the  forces  of  viscosity 
and  the  inertial  forces  have  a  significant  effect  on  the 
flow  hydraulics.  Away  from  the  bridge  opening  the  flow  tends 
to  be  gradual  and  less  turbulent.  In  such  flow  regions 
the  effect  of  the  viscosity  forces  of  turbulence  exchange 
becomes  less  significant  and  the  inertial  forces  dominate. 

From  the  experience  of  model  calibration  at  the  Tall  anal  la 
field  site  and  the  laboratory  data,  the  values  of  turbulence 
exchange  coefficients  (eddy  viscosities)  listed  in  Table  10 
give  the  most  satisfactory  results.  While  the  magnitude  of 
the  coefficients  may  vary  from  site  to  site,  these  values 
may  be  considered  typical,  and  can  be  used  for  hydraulic 
simulations. 


Computer  Requirements.      The  execution  of  the  Finite  Element 
Model  requires  a  high  speed  computer  with  a  very  large  storage 
capacity  (on  the  order  of  200K  octal  words).  A  large  memory 
is  needed  for  the  solution  of  the  large  system  of  simultaneous 
equations  and  the  in-core  storage  of  the  resulting  coefficient 
matrix. 

In  terms  of  computer  speed,  it  is  advisable  to  use  the 
fastest  machine  available  because  FEM  has  a  very  high  compu- 
tational requirement.  The  model  development  was  undertaken 
on  a  Control  Data  6700  computer.  Other  versions  of  the  model 
have  been  run  on  a  UN  I VAC  1108  computer.  Computers  such  as 
the  CDC  6000  and  7600  series,  and  UNI VAC  1110  are  the  types 
best  suited  for  the  Finite  Element  Model.  The  large  IBM 
360  configurations  (350  K  bytes)  are  also  suited  for  model 
execution. 
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Table  10.  Values  of  Turbulence  Exchange  Coefficients 
Used  in  Example  Problems. 


Turbulence  Exchange  Coefficients  (Eddy  Viscosity) 

(lb-sec/ft2) 


Type  of 
Simulation 

Gradually  Varied 
Zone 

Flow  Contracting 
Zone 

Flow  Expansion 
Zone 

Ex      Ey 

Ex       Ey 

Ex     Ey 

Field  Site 
(Tallahalla 
Creek  at 
Rt.  528,  Miss.) 

Wing  Wall 
Model 

500*     250* 
750**    750** 

1.0      1.0 

50       50 
0.5      0.5 

300    250 
0.5     0.5 

*   Wooded  Flood  Plain 
**  Pasture  Area 
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VIII.   SUMMARY 


A  mathematical  model  describing  the  steady,  two-dimensional 
subcritical  flow  in  bridge  waterways  has  been  developed  using  the  Finite 
Element  Method   of  numerical  analysis.  The  basic  fluid  equations  comprising 
the  model  consist  of  the  phenomenologic  motion  equations  (i.e.,  the  Navier- 
Stokes  Equations  with  Reynold's  stress  terms)  and  the  continuity  equation. 
These  partial  differential  equations  are  solved  simultaneously  by  numerical 
methods  to  yield  the  spatial  distribution  of  water  surface  elevations  and 
velocities  within  the  flow  region  for  prescribing  boundary  conditions. 

Galerkin's  variation  of  the  method  of  weighted  residuals  has  been 
applied  to  the  basic  differential  equations  to  form  the  finite  element 
representation.  The  basic  element  shape  selected  for  the  model  is  the 
triangle,  with  quadratic  shape  functions  defined  for  unit  flows  and 
linear  shape  functions  defined  for  the  depth.  Such  an  approximation 
results  in  six  degrees  of  freedom  for  each  unit  flow  component  and  three 
for  depth  on  any  triangular  element. 

The  model  is  capable  of  simulating  flow  characteristics  of  arbitrary 
geometry  and  of  accepting  boundary  specifications  for  any  dependent  variable 
at  any  location.  Hydraulic  computations  for  various  types  of  highway 
stream  crossings,  such  as  normal,  skewed,  eccentric,  or  a  combination 
of  these  can  easily  be  performed  by  the  model.  The  model  is  capable  of 
simulating  flow  overtopping  over  roadway  embankments  and  can  perform 
hydraulic  computation  for  a  series  of  bridges  across  a  stream  valley  without 
requiring  prior  assumption  of  the  flow  distribution  for  each  bridge 
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opening.  In  fact  the  model  may  be  used  to  determine  the  flow  passing 
through  each  bridge  opening  under  this  type  of  crossing  condition.  It  may 
be  possible  to  use  the  Finite  Element  Model  to  compute  scour.  The  model 
is  coded  in  FORTRAN  language  for  solution  by  a  digital  computer. 

The  model  has  been  tested  for  two  example  problems:  one  for  a 
field  site  near  Tall  aha! la,  Mississippi,  and  one  for  hydraulic  flume  data. 
In  both  examples  good  agreement  between  the  model  and  the  observed  data 
was  demonstrated. 
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GLOSSARY  OF  MATHEMATICAL  TERMS 

A  =  Area  of  triangular  element 

B  =  Function  dependent  on  \\> 

C  =  Chezy  coefficient 
0^  =  Depth-dependent  resistance  coefficient 
C  =  yC  =  Weir  coefficient  for  submerged  condition 
C  =  Discharge  coefficient  of  broad  crest  weir 
c  ,  c  =  Direction  cosines  of  outward  normal  in  x  and  y  directions 

d  =  Depth 

F  =  Body  force 

Fh  =  Unit  force  due  to  bottom  friction  in  x  direction 
x 

F^  =  Unit  force  due  to  bottom  friction  in  y  direction 

f  =  Error  function 

g  =  Gravitational  constant 

H  =  Head  above  weir 

h  =  Local  water  depth 

L  =  Weir  length 

l   =  Distance  along  a  stream  line 
N.  =  Shape  function  of  element  node 

p  =  Instantaneous  value  of  pressure 

p  =  Mean  pressure  over  At 
p'  =  Fluctuation  in  pressure 
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Q  =  Flow 

q  =  Number  of  integration  points 

r  =  Unit  flow  in  the  x  direction 

S  =  Contour 

s  =  Unit  flow  in  the  y  direction 

t  =  Time 

u  =  Instantaneous  velocity  component  in  the  x  direction 

u  =  Mean  velocity  in  the  x  direction 
u'  =  Velocity  fluctuations  with  respect  to  mean  value  in  the  x  direction 

V  =  Element  area 

v  =  Instantaneous  velocity  component  in  the  y  direction 

v  =  Mean  velocity  in  the  y  direction 
v1  =  Velocity  fluctuations  with  respect  to  mean  value  in  the  y  direction 

w  =  Instantaneous  velocity  component  in  the  z  direction 

w  =  Mean  velocity  in  the  z  direction 

w1  =  Velocity  fluctuations  with  respect  to  mean  value  in  the  z  direction 

w  =  Numerical  integration  weighting  factor  at  location  g 
y 

x  =  Distance  along  x-coordinate 
x  =  Body  force  acting  on  x  direction 
y  =  Distance  along  y-coordinate 
y=  Body  force  acting  on  y  direction 
z  =  Water  surface  elevation 
z  =  Body  force  acting  on  z  direction 
z  =  Elevation  of  bottom  surface 
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a  =  Coefficient 

2r  +  3LXt 

At  3t 

Y  =  Correction  factor  for  the  discharge  coefficient  under  submerged 
flow,  a  function  of  the  ratio  of  downstream  head  to  upstream 
head  above  roadway 

e  =  Turbulence  exchange  coefficient  (eddy  viscosity) 

e  =  Turbulence  exchange  coefficients  in  the  x,  y,  and  z  directions 

%  =  Scalar  quantity  or  vorticity 

y  =  Dynamic  viscosity  of  fluid 

p  =  Fluid  density 

3u 
t  =  Fluid  shear  stress  =  (y  +  e)  — 

*  =  Location  function 
a 

\\>  =  Stream  function 
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APPENDIX  A 
USERS'  GUIDE 

Finite  Element  Model  for  Bridge  Backwater  Computation 
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INTRODUCTION 


This  section  of  the  report  presents  a  brief  description  of  the 
information  needed  to  apply  the  Finite  Element  Model  to  a  backwater 
problem.  Included  is  a  description  of  input  requirements  and  important 
model  parameters.  This  section  is  intended  to  be  used  to  assist  in  the 
application  of  the  model  to  a  physical  problem.  If  a  more  in-depth 
understanding  of  the  program  formulation  or  the  method  of  solution  is 
needed  the  reader  is  referred  to  earlier  sections  of  this  report. 

Input  data  for  the  Finite  Element  Model  is  surprisingly  concise. 
Among  the  most  important  items  required  is  a  precise  estimate  of  upstream 
and  downstream  boundary  conditions  along  with  an  accurate  description  of 
the  physical  geometry  of  the  area  under  study.  These  topics  are  covered 
in  detail  sufficient  for  implementation  by  model  users.  Important  system 
parameters  such  as  bottom  elevations,  abutment  geometry  and  overtopping 
parameters,  along  with  typical  roughness  and  eddy  viscosity  parameters 
are  discussed  in  detail.  An  important  section  on  model  calibration 
procedures  is  also  included.  This  section  attempts  to  formalize  the 
procedures  necessary  to  provide  an  accurate  and  realistic  application 
of  the  model . 

The  Appendix  concludes  with  a  description  of  input  format  require- 
ments, followed  by  a  description  of  important  variables  in  COMMON  and  a 
complete  listing  of  the  program. 
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GUIDELINES  FOR  GRID  NETWORK  LAYOUT 


NETWORK  LAYOUT 

The  first  requirement  for  constructing  a  grid  network  system 
for  Finite  Element  Modeling  is  a  map  showing  details  of  the  physical 
system.  A  U.S.  Geological  Survey  (USGS)  quadrangle  map  with  a  scale  of 
1:24,000  is  useful,  but  a  larger  scale  map  (1:500)  is  more  desirable. 
The  map  should  show  all  the  major  characteristics  of  the  physical  system, 
including  the  main  channel  configuration,  flood  plain  boundaries,  bottom 
elevations,  spatial  distribution  of  vegetation  cover  within  the  flood 
plain,  embankment  and  abutment  geometries,  and  horizontal  and  vertical 
clearances  of  the  bridge.  If  a  sufficient  amount  of  flood  plain  cross-sectional 
data  are  available,  these  data  may  be  used  to  substitute  for  the  topographic 
maps.  As  a  minimum,  cross-sectional  data  extending  one  to  two  miles  in 
both  directions  from  the  crossing  site  are  generally  required. 

Construction  of  the  network  system  begins  with  the  delineation 
of  flow  boundaries  along  the  banks  and  along  the  upstream  and  downstream 
boundaries  of  the  overall  system.  The  upstream  and  downstream  boundaries 
should  be  selected  at  locations  where  boundary  conditions  can  be  specified 
with  a  degree  of  certainty.  Delineation  of  the  boundaries  of  the  flood 
plain  requires  a  judgmental  decision  since  natural  streams  have  sloping  sides 
rather  than  rectangular  sides  which  are  used  by  the  FEM  model.  Since  water 
surface  elevation  is  a  dependent  variable,  the  flow  boundaries  along  the 
banks  cannot  be  determined  a  priori.     Highwater  marks  of  historical  flood 
events  may  be  helpful  in  delineating  these  flow  boundaries. 

As  a  general  rule,  the  system  should  be  described  with  as  few  corners 
as  possible.  The  interior  elements  of  the  flow  region  can  be  described  after 
the  overall  flow  boundaries  have  been  set.  Experience  has  shown  that  the 
best  network  system,  in  terms  of  computational  efficiency,  follows  the  flow 
net  of  potential  flow  in  a  wery   general  way.  It  is  not  necessary  that  the 
network  be  orthogonal  as  is  the  case  of  a  potential  flow  network.  Basically, 
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the  finite  element  network  consists  of  a  system  of  interlocking  triangles. (Figure  A" 
The  first  step  of  constructing  such  a  system  of  network  is  to  draw  a  series 
of  lines  from  bank  to  bank  and  another  from  the  upstream  boundary  to  a 
downstream  boundary  forming  a  system  of  quadrangles  in  the  flow  region. 
Diagonals  can  then  be  drawn  in  the  quadrangles  to  form  the  basic  grid  net- 
work of  the  computational  system.  As  in  most  numerical  methods  the  grid 
size  is  essentially  governed  by  the  expected  degree  of  variation  in  water 
surface  elevation,  flow  velocity,  channel  roughness  and  geometry,  and 
bottom  elevation. 

With  the  network  complete,  the  nodes  and  elements  are  numbered 
and  checked  against  the  capacity  of  the  program.  If  program  capacity  has 
been  exceeded,  one  can  either  consider  enlarging  the  program  dimensions 
(assuming  a  sufficiently  large  computer)  or  restructuring  the  network  to  a 
lesser  number  of  nodes  and  elements.  The  best  possible  network  is  the 
smallest  one  which  will  adequately  and  accurately  describe  the  prototype 
system. 

It  should  be  noted  that  FEM  treats  the  corner  nodes  along  the 
exterior  boundary  as  stagnation  points.  Such  an  assumption  may  not  be 
completely  valid  for  some  of  the  physical  systems  but  is  necessary  for 
present  versions  of  FEM.  Special  consideration  is  thus  required  to  make 
these  boundary  elements  near  corners  as  small  as  possible. 


NETWORK  NUMBERING 

Each  nodal  point  in  the  network  system  must  be  assigned  a  unique 
number,  both  for  interpretation  of  input  and  output,  and  for  internal 
computation.  The  general  rule  of  nodal  numbering  is  to  keep  the  maximum 
difference  in  node  numbers  across  any  element  a  minimum.  This  will  usually 
result  if  the  nodes  are  numbered  sequentially  along  transverse  lines.  Node 
numbers  must  be  assigned  to  the  mid-side  nodes  as  well  as  corner  nodes. 
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If  one  errs  in  network  numbering,  discovers  an  order  which  will 
reduce  the  maximum  node  number  difference  across  an  element,  or  wishes  to 
add  elements  to  an  existing  network  which  do  not  fit  in  with  the  existing 
numbering  system,  there  is  no  need  to  renumber  and  repunch  all  the  data 
associated  with  the  network.  An  option  in  the  computer  program  allows  the 
internal  renumbering  of  the  node  system,  while  at  the  same  time  allowing 
the  old,  external  numbering  system  to  be  used  for  input  and  output. 
This  option  is  detailed  on  Card  Sequence  Number  19  in  the  section  entitled 
"Input  Card  Formats". 
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BOUNDARY  CONDITIONS 


Proper  boundary  conditions  must  be  described  prior  to  the 
execution  of  FEM.  The  system  contains  three  dependent  variables:  flow 
(or  velocity)  in  the  longitudinal  direction,  flow  (or  velocity)  in  the 
transverse  direction,  and  the  head  (or  water  surface  elevation).  The 
program  permits  one  or  more  of  these  variables,  or,  in  certain  instances 
a  combination  of  them,  to  be  specified  by  the  user  for  each  nodal  point. 
There  are  six  types  of  conditions  possible  at  each  nodal  point: 


1 .  No  Boundary  Condition  Specified 

When  no  boundary  condition  is  specified  at  a  node  for 
a  particular  variable,  this  variable  simply  enters  the 
calculation  scheme  as  one  of  the  basic  unknowns.  Normally 
there  will  be  no  specified  values  at  any  of  the  interior 
nodes  of  the  network. 

2.  Exact  Boundary  Condition 

The  exact  boundary  condition  is  the  most  familiar  type 
of  boundary  condition,  and  simply  means  that  a  specified 
value  is  assigned  to  one  or  more  variables  at  a  particular 
node  point.  Typically  this  is  the  type  of  specification 
that  is  used  to  set  upstream  flows. 

3.  Parallel  Flow  Boundary  Condition 

In  order  to  make  the  model  as  realistic  as  possible, 
a  feature  has  been  programmed  into  the  computer  codes 
which  allows  flow  to  move  parallel  to  a  fixed  boundary. 
This  feature  is  particularly  useful  in  reducing  the 
required  level  of  element  detail  when  straight-sided 
systems  are  being  simulated.  When  using  the  parallel 
flow  option,  it  is  important  to  insure  the  condition 
that  the  fixed  boundary  along  which  flow  is  allowed 
to  move  is  really  straight.  In  general  this  cannot  be 
expected  to  occur  if  node  points  are  taken  from  an 
ordinary  graphical  layout.  For  this  reason  an  option 
has  been  built  into  the  program  which  allows  the  exact 
calculation  of  selected  node  point  coordinates  to  insure 
that  they  lie  along  a  straight  line.  This  option  has  been 
used  in  the  demonstration  data  deck.  Input  information 
found  on  card  types  19,  24  and  25  are  necessary  for  im- 
plementation. A  description  of  the  card  types  can  be  found 
in  the  section  entitled  "Input  Card  Formats". 
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4.  Corner  Boundary  Conditions 

The  flow  or  velocity  specifications  at  a  corner  node  are 
zero-zero  because  corners  must  be  considered  as  stagnation 
points  in  the  model.     This  may  cause  certain  problems  in 
the  overall  solution  if  the  corner  elements  are  too -large, 
but  it  is  necessary  to  preserve  overall  system  continuity. 

5.  Exit  Boundary  Conditions 

The  mathematical  formulation  of  FEM  has  resulted  in  a 
situation  whereby  the  specification  of  exit  boundary 
conditions  for  head  is  handled  in  a  slightly  different 
fashion  from  the  exact  boundary  condition.  From  a  user's 
point  of  view  this  will  simply  mean  that  the  head  at 
the  downstream  boundary  will  have  to  be  identified  as 
such,  and  that  in  some  cases  the  model  will  not  reproduce 
these  specifications  with  the  same  numerical  precision 
as  an  exact  boundary  condition. 

6 .  Sink-Sour oe  Boundary  Condition 

Special  boundary  conditions  are  required  at  locations 
where  the  flows  leave  and  re-enter  the  system.  This 
type  of  flow  condition  occurs  at  channel  confluences, 
and  in  bridge  waterway,  at  the  top  of  embankment  where 
flow  overtopping  takes  place. 

Typically,  the  user  specifies  the  exact  unit  flows  in  both  space  dimensions 
at  each  nodal  point  on  the  upstream  boundary,  and  the  exact  water  surface 
elevation  at  corner  points  on  the  downstream  boundary.  Water  surface  ele- 
vation along  the  upstream  boundary  and  the  flows  along  the  downstream 
boundary  are  left  as  unknow  variables  to  be  solved  by  FEM.  No  exact 
boundary  conditions  along  the  boundaries  of  channel  banks  are  required 
other  than  those  at  corner  nodes  where  zero  flows  are  specified.  Generally 
a  parallel  flow  boundary  condition  is  specified  along  the  channel  banks 
and  approach  embankments. 
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PREPARATION  OF  INPUT  DATA 


The  input  Data   required  for  the  Finite  Element  Model  consist 
of  (a)  network  geometric  parameters,  (b)  system  coefficients,  (c)  initial 
conditions,  (d)  boundary  conditions,  and  (e)  run  control  parameters. 
Brief  descriptions  of  these  input  data  are  given  in  the  following  para- 
graphs. Input  card  formats  are  found  in  the  section  under  that  title. 

The  Network  Geometric  Parameters   are  the  basic  framework  of  the 
model.  The  data  in  this  category  include  the  X  and  Y  coordinates  and 
bottom  elevation  of  nodal  points.  Specification  of  these  data  are  re- 
quired only  at  corner  nodes  of  each  element.  The  data  at  mid-nodes  are 
obtained  through  interpolation  of  the  data  from  adjacent  corner  nodes. 
Connectivity  information  of  nodes  around  each  element  must  also  be 
specified. 

The  System  Coefficients   include  bottom  friction  coefficients, 
namely  the  Manning's  roughness  coefficients  and  eddy  viscosities.  Data 
describing  the  spatial  distribution  of  channel  roughness  in  the  flow 
region  are  yery   important.  Roughness  data  must  be  developed  for  both 
the  main  channel  and  the  flood  plain.  Vegetation  maps  or  aerial  photo- 
graphs at  the  bridge  site  are  helpful  in  estimating  channel  roughness. 
The  locations  of  high  water  marks  from  past  flood  events  are  a  good  way 
to  determine  the  channel  roughness  under  flood  stages  when  such  data  are 
available.  Information  on  eddy  viscosities  is  generally  sparse  and  they 
must  be  obtained  from  past  studies  (See  Chapter  VIII  and  Table  10).  Both 
of  the  data  types  are  specified  for  each  element  of  the  network  system. 
For  cases  where  overtopping  of  approach  embankments  and  bridge  decks 
occurs,  discharge  coefficients  for  Weir  flow  must  be  specified  and  input 
to  the  model.  Wier  coefficients  are  input  on  Card  Type  10  of  the  input 
data  deck.  Typical  coefficients  are  given  in  Figure  10. 
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Initial  Conditions  must  be  specified  before  the  computation 
begins.  In  dynamic  computations  the  initial  conditions  are  specified  to 
depict  the  state  of  the  system  at  the  beginning  of  the  next  time  step. 
In  steady  state  computations  the  specification  of  initial  conditions 
generally  result  in  increased  computational  efficiency.  The  input  data 
describing  these  initial  conditions  are  estimates  of  unit  flows  (cfs/ft) 
both  the  X  and  Y  directions  and  the  water  surface  elevation  at  each  node 
of  the  network  system.  As  a  general  guideline,  values  of  flow  parameters 
under  uniform  flow  condition  usually  are  good  initial  conditions. 

Boundary  Conditions   must  be  described  as  input  data  in  accordance 
with  the  proper  types  of  boundary  outlined  in  the  section  entitled 
Boundary  Conditions.  Generally  it  is  a  relatively  easy  task  to  prepare 
this  group  of  input  data,  since  most  of  the  needed  information,  such  as 
flow  data,  is  readily  available. 

Run  Control  Rarameters   input  to  the  model  consist  of:  total 
number  of  nodes,  elements,  element  types,  corner  nodes  and  boundary  nodes; 
print  option,  continuity  checks  across  given  sections,  degrees  of  freedom, 
and  average  water  surface  elevation  at  beginning,  latitude  and  scale 
factors.  In  addition,  time  and  iteration  control  such  as  total  number 
of  iteration  cycles,  time  steps,  time  intervals  and  total  run  time  are 
also  input  to  the  model. 
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MODEL  OUTPUT 


Depending  upon  the  specification  of  print  option  in  the  input 
data,  model  output  can  either  be  displayed  for  every   iteration  cycle 
or  for  selected  cycles.  The  model  output  consists  of  the  values  of 
velocity  components  in  the  X  and  Y  directions,  water  deoth  and  water  surface 
elevation  at  each  nodal  point.  These  data  can  either  be  output  to  a  line 
printer  or  stored  on  magnetic  tapes.  Information  regarding  convergence 
and  continuity  at  each  iteration  are  also  output.  When  embankment  over- 
topping occurs,  the  location  and  flow  rate  printed  is  also  output. 

Sample  output  for  the  test  sites  are  given  in  Chapter  VI 
of  this  report. 


MODEL  CALIBRATION 


Before  the  FEM  can  be  applied  to  study  the  hydraulic 
characteristics  at  a  bridge  site  the  model  must  be  calibrated.  Model 
calibration  is  necessary  because  of  the  assumptions  and  simplifications 
which  are  made  to  approximate  the  real  world  condition  by  a  comparatively 
idealized  model,  e.g.,  the  irregular  boundary  of  a  physical  system  has 
been  approximated  by  simple  geometric  representations.  Furthermore,  a 
number  of  complicated  flow  phenomena  in  the  real  system  are  represented 
by  empirical  relationships  in  the  model,  using  coefficients  developed 
from  past  studies  or  from  field  observations.  Some  coefficients  are 
dependent  on  the  characteristics  of  the  physical  system  and  thus  vary 
from  place  to  place.  The  essence  of  model  calibration,  therefore, 
entails  a  systematic  adjustment  of  network  properties  and  system  parameters 
or  coefficients  in  the  model  to  improve  model  output  until  satisfactory 
agreement  is  obtained  between  model  results  and  field  observations.  The 
calibrated  model  is  then  ready  to  be  used  to  simulate  the  effects  of 
other  conditions  at  the  site. 
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The  major  parameters  that  can  be  adjusted  to  calibrate  FEM 
are:  (1)  channel  roughness,  (2)  turbulence  exchange  coefficients  (or 
eddy  viscosities),  (3)  network  properties,  and  (4)  discharge  coefficients 
for  weir  flow.  The  first  estimates  of  channel  roughness  data  are 
generally  obtained  from  the  literature  or  from  historical  flood  measure- 
ments. As  these  data  are  applied  to  FEM,  adjustments  may  be  needed  to 
give  good  calibration  results.  Care  must  be  taken  in  adjusting  parameters 
such  as  roughness.  There  is  only  a  finite  range  of  channel  roughness  that 
is  permissable.  It  would  be  unreasonable  to  obtain  a  good  calibration 
while  using  a  roughness  which  has  no  physical  meaning.  As  stated  previously, 
information  regarding  eddy  viscosities  is  generally  lacking  in  the 
literature.  The  estimate  of  eddy  viscosities  is  a  rather  difficult  task 
since  they  tend  to  vary  with  scale  of  fluid  motion,  location  and  time. 

Model  calibration  generally  begins  with  the  selection  of 
historical  flood  events  for  which  most  of  the  pertinent  field  data  have 
been  collected.  After  an  initial  network  layout  has  been  constructed, 
a  set  of  estimated  roughness  and  turbulence  exchange  coefficients  is 
assigned.  Normally  solutions  will  converge  after  three  cycles  of  iteration. 
If  the  solution  fails  to  converge  rapidly  or  computed  results  do  not 
conform  with  measured  data  favorably,  then  adjustment  of  network  layout 
and/or  roughness  and  eddy  viscosities  may  be  needed.  The  model  outputs 
of  continuity  checks  across  the  selected  river  sections  and  convergence 
parameters  provide  reliable  information  for  determining  model  performance. 
The  ultimate  calibration  results,  however,  must  be  judged  based  on 
comparison  of  the  computed  water  surface  elevations  and  velocities  to 
observed  field  data.  If  the  computed  values  are  generally  higher  than 
the  observed  data,  then  either  the  estimated  values  of  roughness  are  too 
high  or  the  outer  flow  boundary  has  been  set  too  close.  In  such  case, 
the  location  of  the  flow  boundary  should  be  examined  and  the  roughness 
adjusted  until  satisfactory  model  output  is  obtained. 
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Stage  and  velocity  near  the  bridge  opening  are  sensitive  to  the 
turbulence  exchange  coefficients,  but  this  sensitivity  diminishes  with 
distance  away  from  the  bridge  opening.  Adjustment  of  these  coefficients 
is  significant  in  calibrating  the  model  to  reproduce  flow  conditions 
near  the  bridge  opening.  Experience  with  the  FEM  has  shown  that  major 
adjustment  of  roughness  is  generally  not  needed  when  high  water  marks 
were  used  for  roughness  computation. 

Discharge  coefficients  for  both  free  and  submerged  flow  over 
highway  embankments  are  well  documented,  but  local  roadway  configuration 
and  construction  practice  may  affect  these  values  slightly.  Minor  tuning 
may  be  required  to  determine  discharge  coefficients  accurately. 

For  model  calibration,  data  describing  the  velocity  distribution 
across  a  channel  cross  section  are  useful.  The  velocity  data  used  for 
model  calibration  on  natural  conditions  should  be  taken  at  the  section 
of  the  proposed  bridge  site.  In  the  case  of  existing  bridge  sites  the 
data  can  be  taken  either  at  the  bridge  or  at  other  sections  upstream  or 
downstream  from  the  bridge.  Velocity  data  taken  in  the  flood  plain  and 
in  the  main  channel,  where  distinct  channel  roughness  exists,  are 
extremely  useful  to  model  calibration  but  they  are  usually  difficult  to 
obtain. 

Information  on  embankment  overtopping,  including  the  location  and 
quantity  of  overflow,  is  also  important  for  model  calibration  and 
verification.  If  the  bridge  deck  is  inundated  by  flood  water,  the  water 
surface  elevations  both  upstream  and  downstream,  and  the  velocity  data 
across  the  bridge  section  must  be  measured.  Such  data  are  important 
for  calibrating  the  flow  conditions  when  the  bridge  deck  is  submerged 
and  orifice  flow  prevails. 
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Historical  flood  data  at  the  proposed  bridge  site  are  a  good 
source  of  information.  High  water  marks  observed  for  various  flood 
peaks  provide  invaluable  information  for  model  calibration  and 
validation.  The  water  surface  elevation  measured  at  various  locations 
throughout  the  flow  region  is  most  desirable,  but  reliable  stage  data 
only  along  the  banks  is  also  useful. 

At  existing  bridge  sites  water  surface  elevations  under  the 
bridge  and  along  the  approach  embankments  may  have  been  measured  in 
addition  to  the  data  collected  along  both  banks.  Stage  data  at  specific 
locations  such  as  the  upstream  and  downstream  stagnation  points  and 
around  the  abutments  should  be  sought. 
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INPUT  CARD  FORMATS 


Card  Sequence: 
No.  of  Cards 


Card 
Columns 


FORTRAN 
Name 


FORTRAN7 
Type 


Description  of  Input  Value 


1:1 


2:1 


1-80 


1-5 


TIT 


I  NORM 


I 


(Omit  card  groups  3-16  if  TIT  =  NOCYCLE) 
3:1  1-20     TIT5      A 


CYCLE  -  Multiple  discharges 
NOCYCLE  -  Single  discharge 

IN0RM=0  Overtopping  considered 
IN0RM=1  No  overtopping 


Any  comment 


3:1 

21-25 

NLEN 

I 

•No.  of  configurations  consi- 
dered 

3:1 

26-50 

IIN(5) 

I 

Input  tape  no's,  for  configu- 
ration data 

4:1 

1-20 

TIT5 

A 

Any  comment 

4:1 

21-70 

FLEN(5) 

R 

Bridge  length  considered 

5:1 

1-20 

TIT5 

A 

Any  comment 

5:1 

21-30 

NFLFR 

I 

No.  of  discharges 

6:NFLFR* 

1-10 

FLFR(IJ) 

R 

Flow  magnitude  (cfs) 

6:NFLFR* 

11-20 

FLFR(I,2) 

R 

Return  interval 

7:1 

1-20 

TIT5 

A 

Any  comment 

7:1 

21-25 

NEMB 

I 

No.  of  embankments  to  be  con- 
sidered for  each  bridge 
configuration 

8:1 

1-10 

EMB(10 

R 

1  Embankment  elevation  (ft) 

8:1 

11-20 

EMB(2) 

R 

2  Embankment  elevation  (ft) 

8:1 

21-30 

EMB(3) 

R 

3  Embankment  elevation  (ft) 

8:1 

31-40 

EMB(4) 

R 

4  Embankment  elevation  (ft) 

*  Repeat  for  each  discharge  considered. 
1   A  =  Alphanumeric,  R  =  Real,  I  =  Integer. 
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INPUT  CARD  FORMATS   (Cont.) 


Card  Sequence: 
No.    of  Cards 


Card 
Columns 


FORTRAN 
Name 


FORTRAN 
Type 


Description  of  Input  Value 


(Omit  card  groups  9  and  10  if  INORM  =  1) 
9:(NLEN-1)*  1-20  TIT5  A 


10: (NLEN-1 )* 


11:1 


12:NLEN** 


1-20  TIT5 

21-25         NNDS(I) 


1-5 


6-10 


I 


1-10         NUP(I,J)  I 

11-20         NDWN(I,J)  I 

21-30         WELEV(I.J)        R 


31-40         WCF(I,J)  R 

41-50         NVPP(I.J) 

51-60~        NDWNN(I,J) 


NNDSUP 


NNDSD 


Any  comment 

No.  of  overtopping  nodes  for 
each  bridge  configuration 

Upstream  overtopping  at  Node 
No.  J 

Downstream  overtopping  at 

Node  No.  J 

Water  surface  elevation  (ft) 

at  Node  No.  J 

Weir  coefficient  at  Section  J 

Upstream  corner  node  at  Node 
No.  J 

Downstream  corner  node  at 

Node  No.  J 

Number  of  upstream  boundary 
condition  nodes 

Number  of  downstream  boundary 
condition  nodes 


1-5 

KNDSUP(**,1)  I 

Upstream  BC 

Node  1 

6-10 

KNDSUP(**,2)  I 

Upstream  BC 

Node  2 

11-15 

KNDSUP(**,3)  I 

Upstream  BC 

Node  3 

16-20 

KNDSUP(**,4)  I 

Upstream  BC 

Node  4 

21-25 

KNDSUP(**,5)  I 

Upstream  BC 

Node  5 

26-30 

KNDSUP(**,6)  I 

Upstream  BC 

Node  6 

31-35 

KNDSUP(**,7)  I 

Upstream  BC 

Node  7 

36-40 

KNDSUP(**,8)  I 

Upstream  BC 

Node  8 

41-45 

KNDSUP(**,9)  I 

Upstream  BC 

Node  9 

46-50 

KNDSUP(**,10)  I 

Upstream  BC 

Node  10 

*Repeat  card  groups  9  and  10  for  each  bridge  configuration. 

**Repeat  card  group  12  for  each  bridge  configuration  and  for  the  normal 
configuration  (no  bridge). 
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INPUT  CARD  FORMATS  (Cont.) 


Card  Sequence: 

Card 

FORTRAN 

FORTRAN 

No.  of  Cards 

Columns 

Name 

Type 

Description  of  Input  Value 

13: (NLEN-1  )* 

1-5 

KNNDS(*,1) 

Downstream  BC 

Node  1 

6-10 

KNNDS(*,2) 

Downstream  BC 

Node  2 

11-15 

KNNDS(*,3) 

Downstream  BC 

Node  3 

16-20 

KNNDS(*,4) 

Downstream  BC 

Node  4 

21-25 

KNNDS(*,5) 

Downstream  BC 

Node  5 

26-30 

KNNDS(*,6) 

Downstream  BC 

Node  6 

31-35 

KNNDS(*,7) 

Downstream  BC 

Node  7 

36-40 

KNNDS(*,8) 

Downstream  BC 

Node  8 

41-45 

KNNDS(*,9) 

Downstream  BC 

Node  9 

46-50 

KNNDS(*,10) 

Downstream  BC 

Node  10 

14:NFLFR** 

1-80 
(8  @  10) 

BXV(I,J) 

R 

X  velocity  at 
dary  node  J 

upstream  boun- 
(ft/sec) 

15:NFLFR** 

1-80 
(8  @  10) 

BXZ(I.J) 

R 

Z  velocity  at 
dary  node  J 

upstream  boun- 
(ft/sec) 

16:NFLFR** 

1-80 
(8  @  10) 

HTI(I.J) 

R 

Downstream  head  (ft)  at 
node  J 

17:1 

1-10 

DEMBK 

R 

Embankment  he" 

ght  (ft) 

18:1 

1-80 

TITLE 

A 

Any  heading  comment 

19:1 

1-5 

NP 

I 

The  maximum  node  number  in 

the  network 

6-10 

NE 

I 

The  maximum  element  number 
in  the  network 

11-15 

NMAT 

I 

Number  of  element  types 

16-20 

NPX 

I 

Number  of  corner  nodes 

21-25 

iMBX 

I 

Number  of  nodes  with  boun- 
dary conditions  specified 

26-30 

IPRT 

I 

Control  for  output  printing: 

IPRT=0,  all  input  data 

printed 
IPRT=1 ,  node  and  element 

input  data  suppressed 


*  Repeat  card  group  13  for  each  bridge  configuration. 

**Repeat  this  card  group  for  the  number  of  discharges  considered, 
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INPUT  CARD  FORMATS  (Cont.) 


Card  Sequence: 
No.  of  Cards 


Card 
Columns 


FORTRAN 
Name 


FORTRAN 
Type 


Description  of  Input  Value 


19:1 


20:1 


21:1 


31-35 


36-40 


41-45 


46-50 


51-55 


56-60 


1-10 
11-20 

21-30 


1-5 


NXZL 


NZXL 


NCL 


IWIND 


NDF 


IRO 


OMEGA 
ELEV 

TEMP 


31-40   XSCALE 


41-50   ZSCALE 


IITI 


I     Number  of  line  segments  along 
which  the  Z  coordinates  are 
to  be  computed  internally 
(X  from  card  input) 

I     Number  of  line  segments  along 
which  the  X  coordinates  are 
to  be  computed  internally 
(Z  from  card  input) 

I     The  number  of  line  segments 

along  which  flow  continuity 
is  to  be  checked 

I     Control  for  wind  field  input: 
IWIND=0,  no  wind  field  input 
IWIND=1 ,  wind  field  input 

I     Number  of  degrees  of  freedom 
(set  NDF=3) 
NDF=3;  flow,  head 
NDF=4;  flow,  head,  density 
NDF=5;  flow,  head,  density, 
temperature 

I     Control  for  internal  node 
reordering: 
IR0=0;  no  reordering 
IR0=1 ;  reordering 

R     Local  average  latitude  (deg.) 

R     Average  initial  water  surface 
elevation  (ft) 

R     Average  initial  water  tempera- 
ture (°C) 

R     Scale  factor  for  X  coordinate 
card  inputs 

R     Scale  factor  for  Z  coordinate 
card  inputs 

I     Number  of  iterations  for 
initial  solution 


(If  NITI  <  0,  a  set  of  initial  conditions  will  be  read  at  sequence  32  below. 
If  NITI  <  0,  NITI  will  be  set  to  the  absolute  value  of  NITI  after  input  of 
the  initial  conditions.) 
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INPUT  CARD  FORMATS   (Cont.) 


Card  Sequence: 
No.   of  Cards 


Card 
Columns 


FORTRAN 
Name 


FORTRAN 
Type 


Description  of  Input  Value 


21:1  6-10  NITN  I  Number  of  iterations  per 

dynamic  solution  step 
(set  to  zero) 

11-15  NCBC  I  Number  of  time  steps  between 

updates  of  boundary  condi- 
tions  (set  to  zero) 

Length  of  time  step   (hr) 

Total   simulation  time   (hr) 
(set  to  zero) 

1-10  J  I  Element  type   (9  or  less) 

X-turbulent  exchange  coeffi- 
cient (lb-sec/ft2) 

Z-turbulent  exchange  coeffi- 
cient (lb-sec/ft2) 

X-turbulent  diffusion  coeffi- 
cient (ft2/sec) 

Z-turbulent  diffusion  coeffi- 
cient (ft2/sec) 

Chezy  coefficient  for  this 
element  type 

23:NPX  1-10      J  Node  number—corner 

X-coordinate 

Z-coordinate 

Bottom  elevation  at  node  J  (ft) 

(The  coordinate  values  read  from  Card  23  are  multiplied  by  the 
appropriate  scale  factors,  XSCALE  and  ZSCALE,  and  should  result  in  the 
proper  X  and  Z  coordinates  (ft)  after  transformation.) 


16-25 
26-35 

DELT 

TMAX 

R 
R 

1-10 
1.1-20 

J 
0RT(J,1) 

I 
R 

21-30 

0RT(J,2) 

R 

31-40 

0RT(J,3) 

R 

41-50 

0RT(J,4) 

R 

51-60 

0RT(J,5) 

R 

1-10 
11-20 
21-30 
31-40 

J 

C0RD(J,1) 

C0RD(J,2) 

A0(J) 

I 
R 
R 
R 

24:NXZL** 


1-5 
6-10 


NA 
NB 


I     A  corner  node  at  one  end  of 
a  straight  line  segment 

I     The  corner  node  at  the  other 
end  of  a  straight  line 
segment 


**Input  optional:  controlled  by  values  specified  on  Card  19, 
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INPUT  CARD  FORMATS  (Cont.) 


Card  Sequence 
No.  of  Cards 


Card 

Columns 


FORTRAN 
Name 


FORTRAN 
Type 


Description  of  Input  Value 


24:NXZL 


25:NZXL** 


11-80     NIP 
(1405) 


1-5      NA 
6-10     NB 


I 


11-80 


26:NP/16** 


27:NE 


1-5 

6-35 
(605) 


NIP 


1-80    NFIXH 


N0P(J,K) 


I 


I 


Up  to  14  corner  nodes  between 
nodes  NA  and  NB  for  which 
the  Z  coordinate  is  to  be 
interpolated  using  the  input 
values  of  the  X  coordinate 

A  corner  node  at  one  end  of 
a  straight  line  segment 

A  corner  node  at  the  other 
end  of  a  straight  line 
segment 

Up  to  14  corner  nodes  between 
nodes  NA  and  NB  for  which 
the  X  coordinate  is  to  be 
interpolated  using  the  input 
values  of  the  Z  coordinate 

A  complete  list  of  NP  node 
numbers  which  will  be  used 
to  reorder  the  internal 
formation  of  the  system 
equations.  This  feature 
can  be  used  to  achieve  more 
efficient  core  storage  allo- 
cation without  repunching 
other  existing  system  data 

Element  number 


36-40   IMAT(J) 


The  six  node  numbers  for  ele- 
ment J,  listed  counterclock- 
wise around  the  element 
starting  from  any  corner 

I     Element  type  (the  number  entered 
here  corresponds  to  the  param- 
eters specified  in  the  0RT 
array,  defined  above) 

(A  card  must  be  entered  for  all  element  numbers  even  if  they  are  missing 
from  the  network.  Enter  the  missing  element  number  in  columns  1-5  and 
a  zero  in  column  40. ) 

**Input  optional:  controlled  by  values  specified  on  Card  19. 
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INPUT  CARD  FORMATS  (Cont.) 


Card  Sequence: 
No.  of  Cards 


Card 
Columns 


FORTRAN 
Name 


FORTRAN 
Type 


Description  of  Input  Value 


28:NCL** 


1-80   LINE(J,K)     I 
(16@5) 


29:NBX 


1-10 
16 


NFIX(J) 


17     NFIX(J) 


NFIX(J) 


19 


20 


NFIX(J) 
NFIX(J) 


Lists  of  node  numbers  which 
define  line  segments  across 
which  total  flow  is  to  be 
computed  for  continuity 
checking.  Please  note  that 
the  continuity  checker  assumes 
the  sequence  if  the  input  list 
is  positive,  and  thus  the  sign 
of  computed  flow  will  depend 
on  the  sequence  of  input  values. 
Up  to  16  values  may  be  specified, 

Node  number 

Enter  1  if  the  X-di recti  on  flow 
is  to  have  an  exact  boundary 
condition;  otherwise  leave 
blank 

Enter  1  if  the  Z-direction  flow 
is  to  have  an  exact  boundary 
condition;  otherwise  leave 
blank 

Enter  1  if  the  water  surface 
elevation  (head)  is  to  have 
an  exact  boundary  condition; 
enter  2  if  the  head  is  to 
have  an  exit  boundary  condi- 
tion; otherwise  leave  blank 

Enter  1  if  the  density  is  to 
have  an  exact  boundary  condi- 
tion; otherwise  leave  blank 

Enter  1  if  the  temperature  is 
to  have  an  exact  boundary 
condition;  otherwise  leave 
blank 

NOTE:  If  zero  is  entered  in 
column  16  and  1  in  column  17, 
flow  will  be  allowed  to  move 
parallel  to  the  boundary  at 
this  node 


**Input  optional:  controlled  by  values  specified  on  Card  19. 
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INPUT  CARD  FORMATS  (Cont.) 


Card  Sequence:    Card     FORTRAN   FORTRAN 
No.  of  Cards    Columns    Name     Type    Description  of  Input  Value 


29:NBX 


21-30 

SPEC(J,1) 

R 

31-40 

SPEC(J,2) 

R 

41-50 

SPEC(J,3) 

R 

51-60 

SPEC(J,4) 

R 

61-70       SPEC(J,5) 


R 


The  specified  X-direction  flow 
(ft3/sec/ft) 

The  specified  Z-direction  flow 
(ft3/sec/ft) 

The  specified  water  surface 
elevation  (ft) 

The  specified  density  (slugs/ 
ft3) 

The  specified  temperature  (°C) 


(If  a  node  number  is  missing  from  the  network  system,  a  card  with  the  missing 
node  number  in  columns  1-10  and  1  in  columns  16-20  should  be  entered.) 


30:1 


** 


1-10   ATMOS(l)      R     Net  shortwave  solar  radiation 

(Kcal/m2/sec) 

11-20      ATM0S(2)  R  Net  longwave  solar  radiation 

(Kcal/mVsec) 

21-30       ATM0S(3)  R  Dry  bulb  air  temperature   (°F) 

31-40       ATM0S(4)  R  Relative  humidity   (%) 

41-50       ATM0S(5)  R  Average  wind  speed   (mi/hr) 


(The  above  data  are  to  be  input  only  if  NDF  =5.) 


31:NP** 


1-10  J  I 

11-20       SIGMA(J.l)         R 

21-30       SIGMA(J,2)         R 


Node  number 

Wind  velocity  at  node  J 
(mi/hr) 

Angle  between  the  wind  velocity 
and  the  X-axis   (deg.) 


(The  wind  values  read  here  are  used  only  for  the  calculation  of  the  wind 
effect  on  fluid  motion  and  are  input  only  if  IWIND  =  1.) 


32:NP** 


1-10  J  I 

11-20       VEL(1,J)  R 


Node  number 

Initial   value  of  X-velocity 
(ft/sec) 


**Input  optional:     controlled  by  values  specified  on  Card  19, 
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INPUT  CARD  FORMATS  (Cont.) 


Card  Sequence: 
No.  of  Cards 


Card 
Columns 


FORTRAN 
Name 


FORTRAN 
Type 


Description  of  Input  Value 


32:NP 


21-30       VEL(2,J) 

31-40       VEL(3,J) 

(Input  Card  32  will  be    read  only  if  NITI   <  0.) 
(Omit  Card  33  if  TIT  =  CYCLE.) 
33:1  1-10         NOVTOP 


Initial   value  of  Z-velocity 
(ft/sec) 

Initial  value  of  water  surface 
elevation  (ft) 


(Omit  Card  34  if  NOVTOP  =  0.) 


34: NOVTOP 


I 


1-10 

NVP(1 ,K) 

I 

11-20 

NDWN(1,K) 

I 

21-30 

WELEV(l.K) 

R 

31-40 

WCF(1,K) 

R 

41-50 

Q0V1(K) 

R 

51-60 

NVPP(1,K) 

I 

61-70 

NDWNN(l.K) 

I 

Number  of  overtopping  nodes 
for  single  discharge  option 


Upstream  embankment  node  K 

Downstream  embankment  node  K 

Water  surface  elevation  K 

Weir  coefficient  K 

Initial  estimate  of  overtopping 
flow  (cfs)  at  section  K 

Upstream  corner  node  K 

Downstream  corner  node  K 
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DEFINITION  OF  VARIABLES 


FORTRAN 
Variable 
Name 


COMMON 
Block 


Definition 


AEVAP 
AFACT(J) 

ALFA(J) 

ALTM 

A0(J) 

APRESS 

ATEMP(J,K) 

ATMOS(J) 

BEVAP 

CHI 

CORD(J,K) 

DELT 

EAVG(J)* 

EMAX(J)* 


BLKF 
BLKC 

BLKB 
BLKA 
BLKB 
BLKF 
BLKC 

BLKF 
BLKF 
BLKA 
BLKB 
BLKA 
blank 

blank 


ESTIFM(J,K) 

BLKE 

F(J) 

BLKE 

FACT 

BLKA 

GRAV 

BLKA 

HEAT(J,K) 

BLKF 

An  evaporation  coefficient 

Coefficients  of  the  coordinates  for  numerical 
integration  along  lines 

Slope  of  boundary  at  node  J 

Multiplier  for  time  stepping  scheme 

Bottom  elevation  at  node  J 

The  average  atmospheric  pressure 

Coefficients  of  the  triangular  coordinates  for 
numerical  integration  of  areas 

The  current  values  of  the  meteorological  inputs 

An  evaporation  coefficient 

Empirical  coefficient  in  wind  stress  term 

X  and  Z  coordinates  for  node  J 

Time  step  for  dynamic  problems 

A  temporary  array  of  the  average  values  of 
solution  corrections  for  variable  J 

A  temporary  array  of  the  maximum  values  of 
solution  corrections  for  variable  J 

The  element  coefficient  matrix 

The  element  RHS  vector 

Relaxation  coefficient  in  Newton-Raphson  scheme 

The  gravitational  constant 

Coefficients  used  in  the  linearization  of  the 
heat  exchange  at  the  air-water  interface 


^Indicates  variable  which  is  printed  in  putput. 
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DEFINITION  OF  VARIABLES  (Cont.) 


FORTRAN 
Variable 

Name 


COMMON 
Block 


Definition 


HFACT(J) 


BLKC 


ICYC* 

BLKA 

IMAT(J) 

BLKB 

LI 

BLKA 

LINE(J.K) 

LMT(K) 

MBAND 

MFIX(J) 

NB 

NBC(J,K) 

NCBC 

NCL 

NCN 

NDF 

NE 

NFIXH(J) 

NIP(J) 


BLKD 

BLKD 
BLKA 
blank 

BLKA 
BLKB 
BLKA 

BLKA 
BLKA 
BLKA 
BLKA 
BLKB 

blank 


NITI 

BLKA 

NLL 

BLKA 

NMAT 

BLKA 

NOP(J,K) 

BLKB 

NOPT 

BLKA 

^Indicates 

variable 

Weighting  factor  for  numerical  integration  along 
lines 

Current  time  step  for  dynamic  problems 

The  type  identifier  for  element  J 

The  maximum  half  bandwidth  for  the  global 
coefficient  matrix 

A  list  of  K  nodes  in  line  J  along  which  continuity 
is  to  be  checked 

The  number  of  nodes  in  continuity  line  J 

Semi-bandwidth  of  global  coefficient  matrix 

A  temporary  array  of  the  fixed  conditions  for 
input  boundary  conditions 


Not  used 


th 


Equation  number  for  the  K   variable  at  node  J 

Number  of  time  steps  between  inputs  of  new 
boundary  conditions  for  dynamic  problems 

Number  of  lines  for  continuity  checking 

Number  of  corner  nodes 

Number  of  Degrees  of  Freedom 

Maximum  element  number 

On  input  the  numbers  for  node  reordering;  later 
the  fix  values  for  dynamic  boundary  conditions 

A  temporary  array  of  nodes  defining  a  line  along 
which  coordinate  interpolation  is  to  be  made 

Iteration  control  for  first  solution 

Not  used 

Number  of  different  types  of  elements 

The  nodes  around  element  J 

Size  of  element  coefficient  matrix 


variable  which  is  printed  in  output. 
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DEFINITION  OF  VARIABLES  (Cont.) 


FORTRAN 
Variable 
Name 


COMMON 
Block 


Definition 


NP  BLKA  Number  of  system  nodes 

NPR*  BLKA  Controlling  index  on  iteration  loop 

NSZF  BLKA  Total  number  of  system  equations 

OMEGA  BLKA  Constant  part  of  Coriolis  terms 

0RT(J,K)  BLKB  The  characteristics  of  elements  of  type  J 

R1(J)        blank     Before  solution  the  RHS  vector;  after  solution 

the  vector  of  solution  corrections 

ROAVG        BLKA      Local  fluid  density 

RPERM(J)      BLKB      The  RHS  vector  containing  the  influence  of 

external  surface  integrals 

SIGMA(J5K)     BLKB      X  and  Z  wind  stress  values  at  node  J 

SK(J)         blank     The  global  coefficient  matrix 

SLOAD(J)      BLKC      A  sign  correction  factor  for  the  numerical  inte- 
gration of  the  head  surface  integrals 

SPEC(J,K)  BLKB  Boundary  condition  K  at  node  J 

SPECH(J)  blank  A  temporary  array  of  exit  boundary  conditions 

TET*  BLKA  Current  value  of  time  in  dynamic  problems 

TITLE(J)*  BLKA  Input  title  comment 

TMAX  BLKA  Maximum  time  for  dynamic  problems 

URF  BLKA  Relaxation  coefficient  in  Newton-Raphson  scheme 

VEL(K,J)*  BLKB  Current  value  of  the  Kth  variable  at  node  J 

VD0T(K,J)  BLKB  Value  of  the  Kth  time  derivative  at  node  J 

V0LD(K,J)     BLKB      Value  of  the  Kth  variable  at  node  J  at  the 

beginning  of  the  time  step 

WAIT(J)       BLKC      Weighting  factor  for  numerical  integration  of  areas 

XAREA(J)      blank     A  temporary  array  of  element  areas 

XVEL(J,K)*     blank     A  temporary  array  of  the  state  variables  in 

output^  format 

^Indicates  variable  which  is  printed  in  output. 
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DEFINITION  OF  VARIABLES  (Cont.) 


FORTRAN 
Variable 
Name 


COMMON 
Block 


Definition 


IFLG  BLKTK  Flag  to  indicate  CYCLE  or  NOCYCLE  option 

UNCI)  BLKTK  Input  tape  file  for  bridge  configuration  data 

FLEN(I)  BLKTK  Bridge  lengths  of  designs  considered 

NLEN  BLKTK  Number  of  bridge  lengths  plus  one 

FLFR(I,1)  BLKTK  Discharge  (cfs)  I 

FLFR( I ,2)  BLKTK  Return  frequency  of  discharge  I 

NFLFR  BLKTK  Number  of  discharges  considered 

EMB(JJ)  BLKTK  Embankment  elevation  (ft) 

NEMB  BLKTK  Number  of  embankments 

NNDS(J)       BLKTK     Number  of  overtopping  nodes  for  each  bridge 

configuration 

NVPP( I , J)     BLKTK     Upstream  corner  nodes  for  bridge  configuration  I 

NDWN(I,J)     BLKTK     Downstream  embankment  nodes  for  bridge  configura- 
tion I 

NNDSUP       BLKTK     Number  of  upstream  boundary  nodes 

NNDSD        BLKTK     Number  of  downstream  boundary  nodes 

INORM        BLKTK     Indicator  variable  to  flag  overtopping  option 

WELEV(I,J)    BLKTK     Bottom  embankment  elevation  (ft)  for  bridge 

configuration  I 

WELEVl(K)     BLKTK     Bottom  embankment  elevation  (ft)  for  one  config- 
uration case 

WCF(I.J)      BLKTK     Weir  coefficients  for  section  J  for  bridge  con- 
figuration I 

NVP(I,J)      BLKTK     Upstream  embankment  nodes  for  bridge  config- 
uration I 

ICK*         BLKTK     Overtopping  variable  to  indicate  overtopping 

has  occurred 

NDWNN(I,J)    BLKTK     Downstream  corner  nodes  for  bridge  configura- 
tion I 


^Indicates  variable  which  is  printed  in  output. 
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DEFINITION  OF  VARIABLES  (Cont.) 


FORTRAN 
Variable 
Name 


COMMON 
Block 


Definition 


NI 

NO 

Q0V1(K) 

BXV(I,J) 

BZV(I,J) 

HTI(I.J) 


KNDSUP(I,J)    BLKTK 
KNNDS(I.J)     BLKTK 


NOVTOP1 

JMN 
IND 

DEMBK 


BLKTK     Card  input  read  tape  number 

BLKTK     Output  tape  number  for  system  output 

BLKTK     Overtopping  flow  in  embankment  section  K 

BLKTK     X  velocity  (ft/sec)  at  upstream  node  J  for  bridge 
configuration  I 

BLKTK     Z  velocity  (ft/sec)  at  upstream  node  J  for  bridge 
configuration  I 

BLKTK     Downstream  stage  (ft)  for  node  J  for  bridge 
configuration  I 

Upstream  boundary  condition  node  for  bridge 
configuration  I 

Downstream  boundary  condition  node  for  bridge 
configuration  I 

BLKTK     Number  of  overtopping  nodes  for  single  discharge 
case 

BLKTK     Number  of  the  bridge  configuration  being  considered 

BLKTK     Set  to  1  if  overtopping  option  is  exercised; 
otherwise  set  to  0 

BLKTK     Embankment  height  (ft)  for  single  discharge  case 


^Indicates  variable  which  is  printed  in  output, 
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FINITE  ELEMENT  MODEL 
PROGRAM  LISTING 
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C      PROGRAM  FEM1 (INPUT=128,0UTPUT=128»TAPE5=INPUT,TAPE6=0UTPUT,TAPE7=1 

C     228) 

C   CONTROL  MAIN  PROGRAM 

COMMON/BLKA/  TITLE<20)  ,NP,NE  ,NB,NDF,NCN,NMAT  ,NSZF,L  I  ,MAXN,NPR, 

1  MBAND»NLL,NCL»GRAV,R0AVG,0MEGA,N0PT,NITI,NITN,NC8C, 

2  ICY.C,DLLTvTMAX,ALTM,CHI,FACT,URF,TET 
COMMON/BLKB/  CORD ( 200 ♦ 2) ,NBC ( 200 , 3) , VEL ( 3, 200 ) ,  SPEC < 200  *  3)  * 

1  ALFA (200) ,AO<200) t NOP (90,6) , I MAT (90) »ORT(10,5) ♦ 

2  NFIXH(200) »NFIX(500) »RPERM(500> 
COMMON/BLKF/  ATMOSUO) »HEAT (6,2) , AEVAP, BEYAP, APRESS , Al , A2» A3 
C0MM0N/8LKTK/IFLG,IIN(5) ,FLEN<5) ,NLEN,FLFR (6, 2) ,NFLFR*EMB (5) »NEMB, 

1NNDS(4) ,NUPP(4,40) »NDWN(4,40) , NNDSUPtNNDSD, INORM, 
2WELEV(4,40) tWELVl (40) ,WCF(4,40> »NUP(4,40) ♦ ICK, NDWNN ( 4 t 40 ) * 
3NI,N0,Q0V1 (40) ,BXV<6,10) ♦BZV(6»10) »HTI (6,10) »KNDSUP ( 5t 10) , 
4KNNDS(5,10) , NOVTOP ♦ JMN» IND, DEMBK 

COMMON  Rl (500) ,SK(60000) 

DATA  MAXROW/500/,MAXSTO/60  000/,IERR/0/ 

ICK=0 
C- 

C- INPUT  DATA  FOR  INITIAL  SOLUTION 

C- 

CALL  INPUT1 

IND=0 

IF  (IFLG)  10*500,10  00024000 

10     CALL  LOAD 

CALL  ERRCHK(NSZF,MBAND) 

NTEQ=NSZF 

WRITE (7)  IIN,FLEN,NLEN,FLFR,NFLFR,EMB,NEMB,NNDS,NDSUP»NNDSUP,NUPP 
1,NDWN,WELEV,WCF,NUP»NDWNIM 

DO  180  J=1,NFLFR 

IF(J.EQ.l)  GO  TO  160 

DO  30  K=1,NNDSUP 

L=KNDSUP(1»K) 

SPEC(L,D=BXV(J,K) 
30     SPEC(L,2)=BZV(J,K) 

00  35  K=1,NNDSD 

L-KNNOS(l.K) 
35     SPEC(L*3)=HTI (J,K) 

CALL  INPUT4 

CALL  L0AD2 
160    IDP=2 

DO  170  NPR=1,NITI 

CALL  FANDS(R1,SK,NTEQ) 

CALL  OUTPUT(IDP) 

CALL  CHECK 
170    CONTINUE 
180    CONTINUE 

IF(INORM.EQ.l)  STOP 

IND=1 

NOVTOP=0 

DO  200  J=2,NLEN 

JMN=J-1 

IN=HN(J) 

REWIND  IN 
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CALL  INPUT3 
CALL  LOAD 
JNOV=NNOS(JMN) 
DO  195  JJ=1»NEMB 
DO  197  J1=1»NFLFR 
DO  31  K=1»NNDSUP 
L=KNDSUP(J»K) 
SPEC{L»1)=BXV(J1»K) 

31  SPEC(L,2>=BZV(J1,K> 
DO  32  K=ltNNDSD 
L=KNNDS(J>K) 

32  SPEC(L,3)=HTI(J1.K) 
CALL  ERRCHK(NSZF,MBAND) 
NTEQ=NSZF 

IF(NITI.LT.O)  STOP  40 
IDP=2 

DO  42  K=l»JNOV 
42     WELV1 <K)=WELEV(JMN»K)*EMB(JJ) 

DO  40  I=l»40 
40     QOVHI>=0. 

WRITE ( NO » 50 20)  (NuP<JMN,K) ,NDwN(JMN,K) ,WELV1 (K) ,WCF(JMN»K) t 
1QOV1 (K)  ,NUPP(JMN,K>  »NDWNN ( JMN, K) »K=l,JNOV) 

DO  188  K=1*NITI 

NPR=K 

DO  190  Kl=l?JNOV 

N=NUP<v!MN*  Kl  ) 

M=NDWN(JMN,K1) 

VEL(1»N)=0. 

VEL(1»M)=0. 

IF(NBC(N»2) .EQ.O)  VEL(2»N)=0. 

IF(NBC<M»2> .EQ.O)  VEL(2tM)=0. 

N1=NUPP(JMN,K1) 

N2=NDWNN(JMN,K1) 

Q=TOPPER(VEL(3»N> ,WELV1(K) ♦VEL (3»M) ,WCF(JMN,K1) ,AO(N) . 
1A0(M) »Q0V1 (Kl) ) 

IF<Q.LT.O.)  Q=0. 

VEL(1»N)=Q 

VEL(1»M)=Q 

IF(Nl.NE.0)VEL(2«N)=<CORD(Nt2)-CORD(Nl,2) )/ 
1  (CORD(N»l)-CORD(Nl*l> )*VEL(1»N) 

IF(N2.NE.0)VEL(2«M)=(CORD(N2»2)-CORD(M,2) )/ 
1  (CORD (N2»l) -CORD (M«l) )*VEL(1,M) 

QC=Q0V1 (Kl)-Q 

WRITE(NO»6070)  N, vEL ( 1 tN> ,QC 

QOV1 (K1)=VEL(1»N) 
190    CONTINUE 

CALL  FANDS(RltSK,NTEQ) 

CALL  OUTPUT (IDP) 

CALL  CHECK 
188  CONTINUE 
197  CONTINUE 
195  CONTINUE 
200  CONTINUE 
C- 
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C- SETUP  EQUATIONS  AND  CHECK  SIZE  ALLOCATIONS < 

C- 

500    CALL  LOAD 

CALL  ERRCHK(NSZF,MBAND) 
C- 

C- PERFORM  INITIAL  STEP  SOLUTION 

C- 

NTEQ  =  NSZF 

IF(NITI.GT.O)  GO  TO  161 

IDP  =  0 

CALL  OUTPUT (  IDP  ) 

GO  TO  181 
161    IDP=2 

READ(NI,5010)  NOVTOP 

IF(NOVTOP.EQ.O)  GO  TO  163 

IND=1 

DO  45  I=l»40 
45     QOV1-(I)=0. 

READ (N I, 50 20)  (NUPU»K) ,NDWN(1,K) .WELEV(ltK) »WCF(1,K) » 
1QOV1  (K)  ,NUPP(1»K)  ,NDWNN(l.tK)  iK  =  l» NOVTOP) 

DO  999  K=l, NOVTOP 
999    WELEV(1,K)=WELEV(1»K) +DEMBK 

WRITE (NO .6020)  (K,NUP(1*K) ,NDWN(1,K) »WELEV(1»K) »WCF(1.K) ♦QOVKK) t 
1NUPPU.K)  ♦NDWNN(1,K)  ,K  =  1, NOVTOP) 
163    DO  171   NPR=1,NITI 

IF(NOVTOP.EQ.O)  GO  TO  166 

WRITE(NO»6070)  NPR 

DO  165  K=1*NOVTOP 

N=NUP(1»K) 

M=NDWN( l,K) 

VEL(1*N) =0. 

VEL(1,M)=0. 

IF(NBC(N»2) .EQ.O)  VEL(2»N)=0. 

IF(NBC(M,2) .EQ.O)  VEL(2»M)=0. 

N1=NUPP(1,K) 

N2=NDWNN( 1*K) 

Q=T0PPER(VEL(3,N) ,WELEV(1,K) »VEL(3»M) tWCF(ltK) ,AO(N) ♦ 
1  AO(M) ,Q0V1 (K)  ) 

IF(Q.LT.  0.)  Q=0. 

VEL(1»N)=Q 

VEL(1»M)=Q 

IF(Nl.NE.O)  VEL  <  2fN)  =  (  CORD  <N»2> -CORDON  1,2) )/ (CORD (N. 1 ) -CORD (Nl ♦ 1 ) ) 
1      *VEL(ltN) 

IF(N2.NE.0)  VEL(2,M)=(C0RD(N2,2)-C0RD(M,2) )/ (CORD (N2» 1 ) -CORD (M, 1) ) 
1      *VEL(ltM) 

QC=Q-Q0V1(K) 

WRITE(NO»6080)  N, VEL < 1 ,N> tQC 

QOV1 (K)=VEL(1*N) 
165  CONTINUE 
166    CALL  FANDS(R1,SK,NTEQ) 

CALL  OUTPUT(  IDP  ) 

CALL  CHECK 
171    CONTINUE 
C- 
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C- SETUP  FOR  TIME  SOLUTION 

C- 

181    IF(TMAX.LT.1.0E-4)  STOP  140 

C- 

C- ERROR  OUTPUT  FORMATS 

C- 
5010  FORMAT(IIO) 

6020   FORMAT (//,4X, • EMBANKMENT ', 7X, 'UPSTREAM • , l ix ♦ • DOWNSTREAM • , 8X, • EMBAN 
1KMENT',6X, «WEIR»»9Xf • INITIAL* »7X» 'CORNER  NODES',/, 
35X« 'SECTION', 6X, 'OVERTOPPING  NODES '♦ 3X ,' OVERTOPP ING  NODES'. 
35X, 'HEIGHT', 6X. 'COEFFICIENT • »5X, «FL0W»,6X, 'UPSTREAM  DOWNSTREAM', 
5/,I9,9X,I10,10X,IlO, 10X,F10.3,2X9F10.3,2X,F10.3,8X,I5,I9) 
5020  FORMAT(2I10,3F10.3»2I10) 

6070   F0RMAT(//,5X, 'OVERTOPPING  INFORMATION  FOR  CYCLE*, 15,/) 

6080   F0RMAT(5X, 'OVERFLOW  AT  NODE • , I5»/»5X» *FLOW • ,F8.4,/,5X, 
l*FLOW  CHANGE  THIS  CYCLE', F8. 4) 
END 
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SUBROUTINE  ERRCHK (LI ,L2) 

OAT A  MAXROW/50  0/,MAXSTO/60  0  0  0/,IERR/0/ 

N0  =  6 

IST0=L1*L2 

WRITE(NO,6060>  L1,L2»IST0 
6060  FORMAT!  //  10X,  'PROBLEM  SIZE  IS',15,  •  EQUATIONS  WITH  A  BAND  WID 
1H  OF'*  15,  •  COLUMNS  AND  TOTAL  STORAGE  OF ',17  ) 

IF(Ll.LE.MAXROW)  GO  TO  100 

IERR=1 

WRITE(NO»6050)  MAXR0W,L1 

6050  FORMAT(  //  10X,  •- ERROR TOO  MANY  EQUATIONS. .RAISE  NFIX  ANI 

1  RPERM  IN  ABLK  FR0M',I6»  •  TO  AT  LEAST', 16  ) 
100    IF(ISTO.LE.MAXSTO)  GO  TO  110 

IERR=1 

WRITE(NO,6055)  MAXSTO,ISTO 

6055  FORMAT(  //  10X,  • ERROR INSUFFICIENT  BLANK  COMMON. .RAISE  < 

2K  FROM',110,  '  TO  AT  LEAST', HO  ) 
110    IF(IERR.EQ.l)  STOP  111 

RETURN 

END 

FUNCTION  T0PPER(HU»HR,HD,CF,8,81,Q0LD) 

DIMENSION  X(7) ,Y(7) 

DATA  X/0., 82., 89., 94. ,97. ,99., 100./ 

DATA  Y/l.,. 99, .94,. 82,. 62,. 45,0./ 

DWN=HD+B1 

UP=HU+3 

IF(UP-HR)  300,300,10 
10     IF(DWN-HR)  290,290*20 
20     RATIO=(DWN-HR)/(UP-HR) 

IF(RATIO-.75)  290,290,30 
30     DELH=RATIO*100. 

DO  40  J=l,6 

I  =  7-J 
40     IF(DELH.LE.  X(D)  K  =  I 

FK=Y(K) ♦(X(K)-DELH)/(X(K)-X(K-1) ) * ( Y (K-l ) -Y (K) > 

TOPPER=(FK*CF*(  (UP-HR)  **1 .5) ^QOLD) *. 6+QOLD 

GO  TO  310 
290         TOPPER=(CFM  (UP-HR) **1.5) -QOLD) *.6*QOLD 

GO  TO  310 
300  TOPPER=0. 
310    RETURN 

END 
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SUBROUTINE  INPUT1 

COMMON/BLKA/  TITLE (20) .NP. NE ,N8 .NDF,NCN,NMAT ,NSZF .LI .MAXN ,NPR, 

1  MBAND»NLL.NCL.GRAV»R0AVG»0MEGA,N0PT,NITI.NITN,NCBC. 

2  ICYC,DELT.TMAX.ALTM.CHI.FACT.URF,TET 
C0MM0N/8LKB/  CORO ( 200 ♦ 2)  .NBC ( 200 ♦ 3) ♦ VEL ( 3  *  200 ) ♦ SPEC ( 200 . 3)  . 

1  ALFA (200)  ,AO(200) .NOP (90.6) ,  I  MAT (90) »ORT(10»5) . 

2  NFIXH(200) .NFIX(500) .RPERM(50  0) 
COMMON/BLKD/  L INE ( 1 0 » 16) .LMT < 10 ) 

COMMON  NIP ( 14) .XAREA (500) 

C0MM0N/bLKTK/IFLG,IIN(5) .FLEN(5) ♦ NLEN, FLFR ( 6. 2> ♦ NFLFR. EM3 ( 5) .NEMB. 
1NNDS  (4)  ,NUPP(4.40)  .NDWN<4,40)  ,NNDSUP»NNDSD.  I  NORM. 
2WELEV(4,40) .WELV1 (40) .WCF(4»40) .NUP(4.40) . ICK.NOWNN (4.40 ) ♦ 
3NI,NO,QOVl  (40)  .3XV<6.10)  .8ZV<6.10)  .HTK6.10)  .KNOSUP  (5.  10)  . 
4KNNDS(5,10) ♦ NOVTOP . JMN , I NO. DEMBK 

DIMENSION  TIT(20) .TIT5(5) 

DATA  CYCL/4HCYCL/ 

DATA  N0RM/4HN0RM/ 

IFLG=0 

NI=5 

N0  =  6 

REAO(NI,7000)  TIT 
7000   FORMAT(20A4) 

IF(TIT(1) .EQ.CYCL)  IFLG=1 

IF  (IFLG)  300.15.300  00245000 

300    REAO(NI,l)  INORM 
1      FORMAT(10I5) 

RE  AD  (N  I,  70  10)  TIT5.NLEN.  (UN  (I)  .1  =  1  .NLEN) 
7010   FORMAT (5A4, 615) 

RE AD (N I, 70 30)  TIT5» (FLEN(I) .1=1, NLEN) 
7030   FORMAT(5A4.5E10.0) 

READ(NI,7010)  TIT5.NFLFR 

DO  310  1=1. NFLFR 
310    READ(NI,7020)  FLFR ( I » 1 ) .FLFR ( I .2) 
7020   FORMAT(2F10.0) 

READ(NI,7040>  TIT5.NEMB 
7040   F0RMAT(5A4»I5) 

READ(NI,7025)  (EMB ( I ) ♦ 1=1 .NEMB) 
7025   FORMAT(8F10.0) 

IF(INORM.EQ.l)  GO  TO  10 

IK=NLEN-1 

DO  320  1=1. IK 

READ(NI,7027)  TIT5»NNDS(I) 

L1=NNDS(I) 

DO  315  J=1.L1 
7027   F0RMAT(5A4.I5) 
315    READ(NI,7029)  NUP ( I » J)  ,NDWN ( I , J) . WELEV ( I . J) ♦ WCF ( I ♦ J)  ♦ 

1  NUPP< I, J) .NDWNN(I.J) 
320    CONTINUE 

7029   FORMAT(2I10.2F10. 0.2110) 
10     READ(NI,1)  NNDSUP,NNOSD 

DO  1000  1=1, NLEN 

READ  (N  1,1)  (KNDSUPd.J)  .J=1.NNDSUP) 

READ  (N  1,1)  (KNNDS(I.U) *J=1.NNDSD) 
1000   CONTINUE 
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DO  1001  I=1»NFLFR 

READ(NI,3)  (BXV(IiJ) tJ=l,NNDSUP> 
3      FORMAT ( (8F10.4) ) 

READ(NI,3)  (BZV(I,J) »J=1»NNDSUP) 

READ(NI,3>  (HTI (I,J) *J=1*NNDSD) 
1001   CONTINUE 
C ■»*•&•»« ao  at  a  ECHO  * <**•»*•»» •»»» 

WRITE(NO,6000) 

WRITE(NO»7070) 
7070   FORMAT(1H0.40X» •     CYCLE  OPTION  •) 

WRITE ( NO ♦ 70  80)  (IlN(I) ♦FLEN(I) ,I=1,NLEN> 
7080   FORMAT*//, 30X,  •   INPUT  TAPES   «,20X, 

1'  3RI0GE  LENGTH   t ,//,5 </ , 35X , I5,20X,F15.4) ) 

WRITE  ( NO ,7090)  (FlFR(I.I)  ,FLFR(I,2)  ,I=1,NFLFR) 
7090   FORMAT(1HO»//,30X,  •   FLOW   », 15X, 'RETURN  INTERVAL • ,///» 
16</,20X,F20.4,10X,F15.4) ) 

WRITE ( NO ♦ 8000)  (EMB(I) , I=1,NEMB) 
8000   FORMAT (////, 40X, '   EMBANKMENT  HEIGHTS  •»//, 

15(/»33X,5F1Q.4) ) 
C      WRITES  RUN  ORDER 

WRITE(NO,6000) 

WRITE(NO,7095) 
7095   FORMAT(///,60X, 'RUN  IDENTIFICATION', 

1  /, 10X, 'RUN  NUMBER' »T30» 'OPENING  WIDTH* ,T50t 'FLOW  (CFs/FT)', 

2  T7CDELT  EMBNKMNT  HT  • ) 
DO  115  J  =  It  NP 

IF(  NFJX(J)/1000  .GT.  1  )  ALFA(J)  =  0.0 
115  CONTINUE 

IF(  IPRT  .GT.  0  )  GO  TO  500 

ENTRY  INPUT4 
C 

C  PRINT  INPUT  DATA 

C 

WRITE(NO*6000) 

WRITE(NO»6005)  TITLE 

WRITE(NO,6040) 

WRITE(NO,6041) 

INT  =  (NP  +  D/2 

DO  485  J  =  1,  INT 

WRITE (NO ,6050)  <N,CORD(N,l) .CORD (N, 2) »AO(N) ,NFIXH(N) »N=J,NP,INT> 
485  CONTINUE 

WRITE(NO,6000) 

WRITE(NO,6005)  TITLE 

WRITE(NO,6060) 

WRITE(NO,6061) 

INT  =  (  NE  +  1  )  /  2 

DO  490  J  =  1,  INT 

WRITE (NO* 6070)  (Nf (NOP<N,M) ,M=1,6) tlMAT(N) ,XAREA(N> ♦N=J»NE,INT) 
490  CONTINUE 

WRITE(NO,6000) 

WRITE(NO,6005)  TITLE 

WRITE(NO»6080) 

WRITE(NO,6081) 

INT  =  (  NP  ♦  1  )  /  2 

DO  495  J  =  1,  INT 

WRITE (NO ,6090)  (N.NFIX(N) , <SPEC(N,M) • Ms  1,3) ,N=J,NP,INT) 
495  CONTINUE 
500  CONTINUE 
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DO  515  J  =  1,  NCL 
NA  =  LMT(J) 

WRITE (NO* 6 125)  J, (LINE ( J,K) ,K=1 »NA) 
515  CONTINUE 
520  CONTINUE 
C- 

C- INITIALIZE  FOR  BOUNDARY  CONDITIONS 

C- 

DO  550  J  =  1,  NP 

IF(  SPEC(J,3)  .GT.  0.0  )  SPEC(J,3)  =  SPEC(J,3)  -  AO(J) 
DO  545  K  =  It  NDF 

IF(  SPEC(J»K)  .NE.  0.0  )  SPEC(J*K)  =  SPECUtK)  -  VEL(K,J) 
545  CONTINUE 
550  CONTINUE 
RETURN 
C- 
C- ENTRY  FOR  TINE  DEPENDENT  INPUT  DATA 

C- 

r_ 

C-... ..INPUT  DATA  CARD  FORMATS 

C- 
5005  FORMAT (  20A4  ) 
5010  FORMAT (  1615  ) 
5020  FORMAT(  8E10.0  ) 
5025  FORMAT(  315.  2E10.0  ) 
5030  FORMAT(  110,  5E10.0  ) 
5035  FORMAT*  110,  3E10.0  ) 
5040  FORMAT(  815  ) 
5050  FORMAT(2I10»3E10.0> 
5060  FORMAT UF10.1) 
6000   FORMATdHl  /  lOX, 'TWO-DIMENSIONAL  FINITE  ELEMENT  BACKWATER  MODEL', 

1/»10X, 'DEVELOPED  FOR  THE  FEDERAL  HIGHWAY  ADMINISTRATION" »/• lOXt 

2'BY  WATER  RESOURCES  ENGINEERS,  SPRINGE IELD ,VA. • ,/, 10X» 

3»AUGUST  1974 •) 

6005  FORMAT (  /  5X»  20A4  > 

6010  FORMAT (  //  2X,  'RUN  CONTROL  PARAMETERS'  // 

1   5X,  'TOTAL  NODES'»I10  /  5X,  'TOTAL  ELTS',111  /  5X,  'ELEMENT  TYPE 

lS'tI8  /  5X,  'CORNER  NODES',19  / 

1        5X»  'BOUNDARY  NODES^tl?  /  5X,  'PRINT  OPTION', 19  /  5X,  «X-Z 

2INTERP',I11  /  5X,  'Z-X  INTERP',111  /  5X,  •  CONT  CHECKS', HO  / 

3  5X,  'WIND  FIELD'.Ill  /  5X,  'OEG  OF  FREEDOM', 17  / 

4  5X,  'NODE  REORDER1*^  ) 

6020  FORMAT(  /  5X,  »AVG  LAT(DEG)',  F13.2  /  5X,  »AVG  WS  ELEV (FT ) • ,F10 .2/ 

1  SX.  'AVG  TEMP(DEG  C)«,  F10.2  /  5X,  'X-SCALE  FACTOR'»  Fll.2  / 

2  5X,  'Z-SCALE  FACTOR',  Fll.2  ) 

6025  FORMAT(  //  2X,  'TIME  AND  ITERATION  CONTROL'  // 

1  5X,  'CYCLES-FIRST  I TERAT ION • , 17  /  5X,  'CYCLES-NEXT  ITERATIONS', 

2  17  /  SX,  'TIME  STEPS/DATA  UPDATE',17,  /  5X,  'TIME  INTERVAL (HOURS 
3)',F9.2/  5X,  'TOTAL  RUN  TIME (HOURS) • ,F8. 2  ) 

6030  FORMATt  //  5X,  'ELEMENT  CHACTERISTICS •  // 

1  9X,  'NUMBER      X  EDDY  VIS      Z  EDDY  VIS  X  DIFF 

2  Z  DIFF  CHEZY'  /  18X,  • (LB-SEC/FT2)    (LB-SEC/FT2)       ( 
3FT2/SEC)       (FT2/SEO*   /  (  115,  1P5E15.3  )  ) 

6040  FORMATt    /  10X,  'FIXED  NODAL  COORDINATES  AND  ELEVATIONS •  ) 
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60M  FORMAT (  /  8X,'N0DF      X-LOC      Z-LOC       ELEV      ORDER 

1NODE      X-LOC      Z-LOC       ELEV      ORDER*  /  16X,  '(FEET)     (F 
2EET)     (FEET)',  ?6X,  '(FEET)     (FEET)     (FEET)'  ) 

6050  FORMAT<  2(  112,  2F10.2,  F10.1,  110  )  ) 

6060  FORMAT(   /   10X,  iNODAL  CONNECTIONS  AND  MATERIAL  NUMBERS....'  ) 

6061  FORMAT(  /  3X,  'ELEMENT     NODES ( COUNTERCLOCKW I SE )      TYPE   AREA(F 
1T2)      ELEMENT     NODES ( COUNTERCLOCKW  ISE)      TYPE   AREA(FT2)'  ) 

6070  FORMAT(  2(  1 10 » 7I5»F 12. 2 , 2X   )  ) 

6080  FORMATt   //  10X,  «BOUNDARY  CONDITIONS •    ) 

6081   FORMAT (/3X, 'NODE       FIX     X-FLOW     Z-FLOW       ELEV 

1  NODE     FIX     X-FLOW     Z-FLOW       ELEV, 

2/16X, • (CFS/FT)   (CFS/FT)    '  (FEET) 

3        (CFS/FT)   (CFS/FT)     (FEET)') 
6090  FORMAT(2(2I7,3F10.2,20X) ) 

6115  FORMAT(  ///  10X,  'NO  CONTINUNITY  CHECKES  REQUESTED •  ) 

6120  FORMAT(    ////  10X»  'CONTINUNITY  CHECKS  TO  BE  MADE  ALONG  THE  FOLLO 

1WING  LINES'   //  6X»  'LINE       NOOES'  ) 
6125  FORMAT(  110,  4X,  1616  ) 
END 
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SUBROUTINE  OUTPUT (  IDP  ) 

COMMON/BLKA/  TITLE (20) ,NP*NE *NB*NDF,NCN*NMAT*NSZF*LI *MaXN,NPR* 

1  MBAND*NLL*NCL.GRaV*ROAVG,0MEGA,NOPT*NITI»NITN*NCBC. 

2  ICYC,DELT*TMAX,ALTM*CHI*FACT*URF*TET 
COMMON/BLKB/  CORD ( 200 , 2)  ♦ NBC ( 200  *  3) * VEL ( 3* 200 ) *SPEC ( 200 t 3)  ♦ 

1  ALFA (200)  *AO(200)  ,NOP<90*6)  ♦ I  MAT (90) »ORT(10*5> » 

2  NFIXH(200) *NFIX(500) *RPERM(50  0) 
C0MM0N/BLKTK/IFLG,IIN(5) *FLEN<5> *NLEN,FLFR (6* 2) ♦NFLFR. EMB ( 5) ,NEMB, 

1NNDS(4)  ,NUPP(4*40)  »ND*'N  (4*40  )  *NNDSUP  tNNDSD  y  INORM* 
2WELEV(4*40) »WELV1 (40) *WCF(4*40) »NUP<4.40) * 

3ICK,NDWNN(4*40) ,NI»N0,Q0V1 (40) *BXV(6*10) »BZV(6«10) »HTI (6*10) * 
4KND5UP(5*10) *KNNDS<5»10) * NOVTOP * JMN, IND* DEMBK 
COMMON  R 1(500) *XVEL (5.250) *EMAX(5) *EAVG(5) 
DIMENSION  IVAR(5*2> 

DATA  IVAR/4H(X-F*4H(Z-F»4H(DEP*4H(DEN*4H(TEM, 
1   4HLOW) *4HL0W) *4HTH)  *4HSTY)*4HP) 
O 

C- SETUP  FOR  SOLUTION  CORRECTIONS 

C- 

DO  100  J  =  1*  NDF 
EAVG(J)  =  0.0 
EMAX(J)  =  0.0 
100  CONTINUE 

*F  (  IDP  .EQ.  0  )  GO  TO  180 
FACT  =  1.00 

IF(  NPR  .GT.  1  )  GO  TO  115 
DO  110  J  =  1*  NP 
DO  105  K  =  1*  NDF 
VEL(K,J)  =  SPEC(J,K)  ♦  VEL(K.J) 
105  CONTINUE 
110  CONTINUE 

115  IF(  NPR  .GT.  1  )  FACT  =  URF 
C- 

C- COMPUTE  SOLUTION  CORRECTIONS.... 

C- 

DO  160  K  =  1*  NDF 
EMAX(K)  =  0.0 
EAVG(K)  =  0.0 
COUNT  =  0.0 
DO  150  J  =  1*  NP 
IF (  NBC(J*K)  )  150*  150*  125 
125  I  =  NBC(J*K) 

COUNT  =  COUNT  ♦  1.0 
EX  =  FACT  *  Rl (I) 
AEX  =  A8S(  EX  ) 
EAVG(K)  =  EAVG(K)  ♦  AEX 
IF(  AEX  .GT.  EMAX(K)  )  EMAX(K)  =  AEX 
IF(  K  .GT.  2  )  GO  TO  140 
IF(  ALFA(J)   )  130*  140*130 
130  VEL(K,J)  =  VEL(K,J)  ♦  EX*COS<  ALFA(J)  ) 

VEL(iW.J)  =  VEL(K*1»J)  ♦  EX*SIN<  ALFA(J)  ). 
GO  TO  150 
140  VEL(K*J)  =  VEL(K*J)  ♦  EX 
150  CONTINUE 
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EAVG(K)  =  EAVG(K)  /  COUNT 
160  CONTINUE 

IF(  IDP  .EQ.  1  )  RETURN 
C- 

C- OUTPUT  RESULTS 

C- 

180  WRITE(6,6000) 

WRITE<6,6001)  TITLE 

WRITE(6,6003)  ICYC*  TET,  NPR 

WRITE(6,6005> 

DO  200  J  =  If  NDF 

WRITE (6,6010)  J,EAVG(J) ,EMAX(J) ,  IVAR(J,1) ,  IVAR(J,2) 
200  CONTINUE 

WRITE<6,6015) 

INT  =  (NP+D/2 
C- 

C- COMPUTE  VALUES  FOR  SECONDARY  OUTPUT 

C- 

DO  233  J  =  1,  NP 

DO  230  K  =  1,  5 

XVEL(KtJ)  =  0.0 
230  CONTINUE 
233  CONTINUE 

DO  240  J  =  1,  NE 

IF(  IMAT(J)  .EQ.  0  )  GO  TO  240 

DO  235  K  =  2,  6,  2 

Nl  =  NOP(J*K-l) 

N2  =  NOP(J,K) 

N3  =  M0D(K*1,6) 

N3  =  N0P(J»N3) 

VEL(3,N2)  =  0.5*<  VEL(3,N1)  ♦  VEL(3,N3)  ) 

XVEL(3,N1)  =  VEL(3»N1) 

XVEL(3,N2)  =  0.5*(  VEL(3*N1)  ♦  VEL(3»N3)  ) 

XVEL(3,N3>  =  VEL(3»N3) 
235  CONTINUE 
240  CONTINUE 

DO  245  J  =  1»  NP 

IF(  XVEL(3,J)  .LE.  0.0  )  GO  TO  245 

XVEL(l.J)  =  VEL(1,J)  /  XVEL(3,J) 

XVEL(2,J)  =  VEL(2,J)  /  XVEL<3,J) 

XVEL(3,J)  =  XVEL(3*J>  ♦  AO(J) 
245  CONTINUE 
255  WRITE<6,6018) 

DO  260  I  =  1»  INT 

WRITE (6,6020)  (J, (XVEL(K.J) ,K=1,2) , VEL (3» J) »XVEL (3, J) »J=I,NP,INT) 
260  CONTINUE 

IF(NITI-NPR)  265,265,280 
265   IF(IND)  270,280,270  00721000 

270  DO  271  J=l,40 

271  IF(QOVKJ)  .NE.O.)  ICK  =  1 
IF(NOVTOP.EQ.O)  GO  TO  10 

WRITE (7,1)  NOVTOP, ICK, (XVEL ( 1 ,NUP ( 1,N) ) ,XVEL <2»NUP < 1 ,N> ) ,VEL(3,NUP 
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KltN)  )  ,XVEL(3»NUP(1»N)  )  ,N=1,N0VT0P) 
1      F0RMAT(2I5/(4E12.5) ) 

GO  TO  280 
10     KN=NNDS(JMN) 

WRITE(7)KN,ICK, (XvEL ( 1 , NUP ( JMN,N> ) »XVEL ( 2»NUP ( JMN,N) ) * VEL ( 3,  NUP ( JM 
1N,N) ) ,XVEL(3»NUP(JMN,N) ) ,N=1,KN) 
ICK  =  0 
280    RETURN 

6000   FORMAT (1H1  /  1  OX , • TWO-DIMENS IONAL  FINITE  ELEMENT  BACKWATER  MODEL', 
1/, 10X, 'DEVELOPED  FOR  THE  FEDERAL  HIGHWAY  ADMINISTRATION ',/♦ 10X, 
2'BY  WATER  RESOURCES  ENGINEERS,  SPRINGFIELD, VA. ',/, 10X, 

3»AUGUST  1974 ') 

6001  FORMAT(  /  5X,  20A4  ) 

6003  FORMAT(  /  5X,  'RESULTS  AT  THE  END  OF', 14,  •  TIME  STEPS. . .TOTAL  TIM 

IE  =',F8.2  ,  •  HOURS.. ..ITERATION  CYCLE  IS*  ,  15  ) 
6005  FORMAT (  //  10X,    'CONVERGENCE  PARAMETERS'   //  8X,  »DF         AVG 

1CHG         MAX  CHr,  •  ) 
6010  FORMAT(  110,  2F15.A,  IX,  2AA  ) 
6015   FORMAT(//10X, 'NODAL  VELOCITIES  AND  HEAD'/) 
6018   FORMAT (3X, 'NODE      X  VEL      Z  VEL     DEPTH     ELEV 

1  NODE      X  VEL      Z  VEL     DEPTH      ELEV'» 


2/,12X,« (FPS)      (FPS)      (FT)      (FT) 


3   32X,'(FPS)      (FPS)      (FT)      (FT)«) 
6020   FORMAT(2d7,2F10.3t2F9.2,20X)  ) 
END 
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SUBROUTINE  LOAD 

COMMON/BLKA/  TITLE (20) ♦NP»NE»NB.NDF»NCN»NMAT»NSZF»LI »MAXN»NPR. 

1  MBAND»NLL»NCL»GRAV»ROAVG»OMEGA.NOPT»NITI»NlTN»NCBC» 

2  ICYCtDELT»TMAXf ALTM» CHI « FACT »URF»TET 
C0MM0N/BLK8/  CORO ( 200 ♦ 2) » NBC ( 200 ♦ 3) * VEL ( 3 . 200 ) ♦ SPEC ( 200 ♦ 3)  ♦ 

1  ALFA (200) ,AO(200) »NOP(90«6) » I MAT (90) *ORT(10»5) ♦ 

2  NFIXH(200) »NFIX(500) »RPERM(50  0) 
COMMON/BLKC/  ATEMP<7»3) tWAlT<7> «AFACTU) ,HFACT(4) ,SLOAD(2) 
COMMON  Rl (50  0) ,NLEFT(1000) ,NRIGHT ( 1000 ) ♦DL(2)  »R(3) ♦HTEMP(25) 
COMMON  SPECH(500) ,MFIX(500) 

C- 

C- COPY  HEAD  SPECS  AND  FIX  BOUNDARY  CONDITIONS 

C- 

NA  =  10**<5-NDF) 

DO  195  J  =  1.  NP 

MFIX(J)  =  NFIX(J) 

IF(  MOD(  NFIX(J)/100»10  )  .EQ.  2  )  NFIX(J)  -  NFIXU)  -  200 
190  NFIX(J)  =  NFIX(J)  /  NA 

195  CONTINUE 

DO  196  J  =  1*  1000 
NLEFT(J)  =  0 
NRIGHT(J)  =  0 

196  CONTINUE 
C 

C  FORM  DEGREE  OF  FREEOOM  ARRAY 

C 

DO  220  N=lfNP 

DO  200  M=1»NDF 

NBC(N,M)=1 

IF(NFIX(N)  /  (10**<NDF-M) ) .EQ.O)  GO  TO  200 

NFIX(N)=NFIX(N)-10**(NDF-M) 

NBC(N»M)=0 
200  CONTINUE 
220  CONTINUE 

DO  250  M=1»NE 

IF(  IMAT(M)  .EQ.  o  )  GO  TO  250 

DO  240  NN  =  2»  NCN»2 

N=NOP(M,NN) 

NBC(N,3)  =  0 
2^0  CONTINUE 
250  CONTINUE 
C 

C  REARRANGE  ARRAY 

C 

NSZF=0 

N  =  0 

DO  300  NN  =  If  NP 

IF(  NFIXH(NN)  .NE.  0  )  N  =  NFIXH(NN)  -  1 

N  =  N  ♦  1 

DO  300  M=1*NDF 

IF(NBC(NfM) .EQ.O)  GO  TO  300 

NSZF=NSZF*1 

NBC(N»M)=NSZF 
300  CONTINUE 
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MBAND=0 

LI=0 

DO  400  M=1»NE 

00  380  I=1»NCN 

III=NOP(M,I) 

00  380  II=1»NDF 

IROW=NBC(III.II) 

IF(IROW.EQ.O)  GO  TO  380 

00  370  J=lfNCN 

JJJ=N0P(M,J) 

DO  370  JJ=ltNOF 

ICOL=NBC(JJJ*JJ) 

IF(ICOL.EQ.O)  GO  TO  370 

NDIF=ICOL-IROW 

IF(NDIF.GT.NRIGHT(IROW) )  NRIGHT ( I ROW) =NDIF 

IF(NOIF.LT.NLEFT(lROW) )  NLEFT ( IROW) =NDIF 

IF(  IABS(NDIF)  -  Li  )  370?370,360 
360  LI  =  IABS(NDIF) 
370  CONTINUE 
380  CONTINUE 
400  CONTINUE 

NFIX(1)=1 

MBAND=NRIGHT(1)*1 

DO  450  N=2»NSZF 

NFIX(N)=1-NLEFT(N) 

IF (NRIGHT (N) .LT .NRIGHT (N-l ) )  NRIGHT (N) =NR I GHT (N- 1 ) -1 

IF(MBAND.LT.NFIX(N)*NRIGHT(N) )  MBAND=NFIX (N) *NRIGHT (N) 
450  CONTINUE 

DO  130  J  =  1»  NP 

NFIXH(J)  =  MFIX(J) 
130  CONTINUE 

GO  TO  145 

ENTRY  L0AD2 
145  DO  150  J  =  If  NSZF 

RKJ)  =  0.0 

RPERM(J)  =  0.0 
150  CONTINUE 

DO  160  J  =  If  NP 

MFIX(J)  =  NFIXH(J) 

IF(  MOO(  NFIXH(J)/100f 10  )  .EQ.  2  )  GO  TO  155 

NFIXH(J)  =  0 

GO  TO  160 
155  NFIXH(J)  =  1 

SPECH(J)  =  SPEC(J,3)  ♦  VEL(3fJ) 

SPEC<Jf3)  =  0.0 
160  CONTINUE 
C- 

C- COMPUTE  EXTERNAL  LOAD  FORCES 

C- 

00  173  LL  =  If  NE 

IF(  IMAT(LL)  .EQ.  0  )  GO  TO  173 

Nl  =  NOP(LLfl) 

N2  =  N0P<LLf3) 

N3  =  N0P(LLf5) 
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NA  =  NFIXH(Nl)  ♦  NFIXH(N2)  ♦  NFIXH(N3) 

IF(  NA  .LE.  1  )  GO  TO  173 

DO  171  NN  =  1,  5  ,  2 

Nl  =  NOP(LL,NN) 

N2  =  NOP(LL,NN+l) 

N3  =  M0D(NN«-2»6) 

N3  =  N0P(LL,N3) 

NA  =  NFIXH(Nl)  <•  NFIXH(N3) 

IF(  NA  .LE.  1  )  GO  TO  171 

HI  =  SPECH(Nl) 

H3  =  SPECH(N3) 

DL(1)  =  CORD(N3*2)  -  C0RD(N1*2> 

DL(2)  =  CORD(N3»l)  -  CORO(Nl»l>, 

DO  170  M  =  1,  2 

00  166  J  =  1»  3 
166  R(J)  =  0.0 

TEMP  =  DL(M)*GRAV/8.0 

00  168  N  =  1»  4 

XL  =  AFACT(N) 

H  =  HI  *  AFACT  (N)*<  H3  -  HI  ) 

HP  =  TEMP*HFACT(N)*H**4 

R(l)  =  R(l)  ♦  HP»(  2.0»XL»*2  -  3.0*XL  ♦  1.0  ) 

R(2>  =  R<2)  ♦  HP*4.0*(  XL  -  XL**2  ) 

R(3)  =  R(3)  ♦  HP  <>     (  2.0*XL**2  -  XL  ) 
168  CONTINUE 

NQ  =  Nl 

DO  169  J  =  1,  3 

IF(  J  ,EQ.  2  )  NQ  =  N2 

IF(  J  .EQ.  3  )  NQ  =  N3 

IC=N8C(NQ*M) 

IF(  ALFA(NQ)  .NE.  0.0  )  GO  TO  175 

IF(IC.EQcO)  GO  TO  169 

Rl (IC)=R1(IC) *SL0aD(M)*R(J) 

GO  TO  179 
175  N=N8C(NQ« 1) 

IF  (M.EQ.l)  Rl  (N)=Rl  (N) ♦R < J) *COS ( ALFA (NQ )  )*SLOAD(l> 

IFCM.EQ.2)  R1(N)=R1(N) *R ( J) *SIN ( ALFA (NQ) )*SL0AD<2) 
179  CONTINUE 
lb9  CONTINUE 

170  CONTINUE 

171  CONTINUE 
173  CONTINUE 

DO  180  J  =  1*  NSZF 
lbO  RPERM(J)  =  Rl (J) 

DO  185  J  =  1»  NP 

NFIXH(J)  =  MFIX(J) 
18S  CONTINUE 

RETURN  43 

END 
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SUBROUTINE  CHECK 

COMMON/BLKA/  TITLE (20) ,"NP  ,NE»NB,NOF,NCN,NMAT  ,NSZF,LI  »MaXN,NPR, 

1  MBANQ»NLL,NCL»GRAV,ROAVG,OM£GA,NOPT,NITI»NlTN,NCBC» 

2  ICYC,DELT,TMAX,ALTM,CHI,FACT9URF,TET 
COMMON/BLKB/  CORD ( 200 t 2) tNBC (200 ♦ 3) ♦ VEL ( 3* 200) *  SPEC ( 200 ♦ 3)  » 

1  ALFA (200) ,AO(200) t NOP (90,6) »IMAT(90) »ORT(10,5) , 

2  NFIXH(200) »NFIX(500> fRPERM(500) 
COMMON/BLKD/  LINE ( 10 » 16) •LMT(IO) 

IF(  NCL  .LE.  0  )  RETURN 

WRITE(6,603Q) 

DO  180  J  =  It  NCL 

SUMX  =  0.0 

SUMY  =  0.0 

DO  150  K  =  It  13t  2 

IF i    LINE(JtK*l)  .LE. 


0  )  GO  TO  160 


150 
160 


180 


6030 


NA  =  LINE(JtK) 

NB  =  LlNEUtK+1) 

NC  =  LINE(JtK*2) 

DX  =  (  CORD(NCtl)  -  CORD(NAtl) 

DY  =  (  C0RD(NCt2)  -  C0RD(NAt2) 

IF(DY.LT.O.)  DY=-DY 

IF(DX.LT.O.)  DX=-DX 

SUMX  =  SUMX  ♦  DY*(  VEL<1,NA)  ♦ 

SUMY  =  SUMY  ♦  DX*(  VEL(2»NA)  ♦ 

CONTINUE 

TOTAL=ABS(SUMX) ♦ABS(SUMY) 

IF(  J  .EQ.  1  )  REF  =  TOTAL 

PCT  =  100.0*TOTAL/REF 

MX  =  LMT(J) 

WRITE <6t 60 35)  JtTOTALt SUMX t SUMY t PCT 

CONTINUE 

RETURN 

FORMAT ( 


6.0 
6.0 


4.0*VEL(1,NB) 
4.0*VEL(2,NB) 


VEL(ltNC) 
VEL(2tNC) 


1 


6035  FORMAT ( 
END 

BLOCK  DATA 
COMMON/BLKA/ 
1 


//  lOXt  'CONTINUNITY  CHECKS'  //   lOXt 

X  FLOW  Z  FLOW    PERCENT*  ) 

lOXt  14,  lP3E15.3t  0PF10.1  ) 


•LINE 


TOTAL 


TITLE < 20) .NP,NE,NB,NDF,NCNtNMAT,NSZFtLltMAXNtNPRt 
MBAND»NLL,NCLtGRAVtROAVGtOMEGAtNOPTtNITItNITNtNCBCt 
ICYC,DELT.TMAXtALTM, CHI t FACT, URFtTET 
ATEMp(7,3)  ,  WAIT  (7)  ,AFACTU)  ,HFACT(4)  ,SL0AD<2) 


COMMON/BLKC/ 
DATA  ATEMP 

1  /0. 33333333, 0.0 597 1587 ,2*0. 470 14206 ,0.79742699, 2*0.10128651, 

2  0.33333333,0.47014206,0.05971587,0.47014206,0.10128651, 

3  0.79742699,0.10128651,0.33333333,2*0.47014206,0.05971587, 

4  2*0.10128651,0.79742699/ 

DATA  WAIT/O. 225, 3*0. 132394 15, 3*0. 125939 18/ 

DATA  AF ACT/0. 06943 19, 0.330 0  095, 0.6699905, 0.9305682/ 

DATA  HFACT/0. 3478548, 2*0. 652 145 1,0. 3478548/ 

DATA  SLOAD/-1.0,1.0/,NDF,NCN/3,6/,GRAV/32.2/,ROAVG/1.935/ 

DATA  CHI/1.4E-6/,FACT/1.00/»URF/1.00/ 

DATA  ALTM/0.0  0/,ICYC/0/,TET/0.0  0/ 

DATA  A 1/1. 939938/, A2/5.588599E-5/,A3/-l. 108539E-5/ 

END 


00960000 
00961:000 
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SUBROUTINE  COEFS(NN) 

COMMON/BLKA/  TITLE (20) »NP»NE»NB»NDF*NCN»NMAT»NSZF»LI »MaXN«NPR, 

1  MBANO»NLL»NCL»GRAV»ROAVG»OMEGA«NOPT»NITI»NlTN»NCBCt 

2  ICYC,DELT«TMAX»ALTM»CHIfFACT»URF.TET 
COMMON/BLKB/  CORD (200 ,2) »NBC (200 ♦ 3) ♦ VEL (3* 200) *SPEC ( 200 ♦ 3)  * 

1  ALFA (200) »AO(200) ,N0P(90»6) »IMAT(90) »ORT<10f5) » 

2  NFIXH(200) »NFIX(500) »RPERM<50  0) 
ATEMP(7»3) » WAIT (7) »AFACT(4) »HFACT(4) ,SL0AD(2) 
ESTIFM(30»30) tF(30) 

COMMON  Rl (500) 

DIMENSION  ACOF(3t3) »FEEA(6) .FEEB(b) ,FEEC(6) » FEED (6)  » 
1   XN(6) ,DNX(6) ,DNY(6) »XM ( 3) fDMX (3) »DMY(3) 


COMMON/BLKC/ 
COMMON/BLKE/ 


SETUP  PARAMETERS  FOR  THIS  ELEMENT, 


NP1 
NP2 
NP3 
NP4 
NP5 
NP6 


NOP(NN*l) 
NOP(NN,2) 
NOP(NN»3) 
NOP(NN»4) 
N0P(NNt5) 
N0P(NN,6) 


INITALIZE  NECESSARY  LOCATIONS, 


DO  50  M  =  1,  NOPT 

F (M)  =  0.0 

DO  45  N  =  If  NOPT 

ESTIFM(MtN)  =  0.0 
45  CONTINUE 
50  CONTINUE 


c- 

c- 

COMPUTE  CENTROID  AND  ELEMENT  AREA 

XBAR  =  (CORD(NPl,l)  ♦  C0RD(NP3fl)  ♦  CORD (NP5t 1 ) ) /3.0 

YBAR  =  (C0RD(NP1»2)  *  C0RD(NP3f2)  ♦  CORD (NP5t 2) ) /3.0 

AI  =  C0RD(NP1,1)  -  XBAR 

AJ  =  C0RD(NP3»1)  -  XBAR 

AK  =  C0RD(NP5»1)  -  XBAR 

BI  =  CORD(NPlf2)  -  YBAR 

BJ  =  C0RD(NP3»2)  -  YBAR 

BK  =  CORD(NP5»2)  -  YBAR 

c- 
c- 
c- 

AM  =  (AJ*BK  -  AK*BJ  -  AI*BK  ♦  AK*BI  ♦  AI*BJ  -  AJ*BI) 

COMPUTE  SHAPE  FUNCTION  COEFS. 

ACOF(lfl)  =  2.0*AM/3.0 

AC0F(1,2)  =  ACOF(ltl) 

AC0F(1»3)  =  ACOF(lfl) 

AC0F(2«1)  =  BJ  -  BK 

AC0F(2«2)  =  BK  -  Bl 

ACOF(2»3)  =  BI  -  BJ 

ACOF(3,l)  =  AK  -  AJ 

AC0F(3«2)  =  AI  -  AK 

ACOF(3f3)  =  AJ  -  Al 
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c- 

C- FIND  AVERAGE  ELEMENT  DENSITY 

C- 

MR  =  IMAT(NN) 
DCX  =  0RT(MR,3) 
DCZ  =  0RT(MR,4) 
75  EPSX  =  ORT  (MR,  D/ROAVG 
EPSZ  =  0RT(MR,2)/R0AVG 
FFACT  =  GRAV/0RT(mR»5>*»2 
TWOAM  =  2.0  *  AM 
C- 

C- ENTER  NUMERICAL  INTEGRATION  LOOP 

C- 

80  DO  500  I  =  1,  7 
AMW  =  AM»WAIT(I) 

XTEMP  =  ATEMP(i,l)*(C0RD(NPl»l)-XBAR)*ATEMP(I»2)*(C0RD(NP3»l) 
1  -XBAR)  +ATEMP(I,3)*(C0RD(NP5»D-XBAR) 

YTEMP  =  ATEMPd,  1 ) * (CORD (NP1 » 2> -Y6AR) ♦ ATEMP ( I , 2> * (CORD <NP3» 2) 
1  -  YBAR)*ATEMP(I,3>*(C0RD(NP5,2)-YBAR) 


c 
c 

.COMPUTE  LINEAR  SHAPE  FUNCTIONS  AND  DERIVATIVES 

DO  90  J  =  1,  3 

XM(J)  =  (  ACOF(l.J)  ♦  XTEMP«AC0F(2»J)  ♦  YTEMP*ACOF < 3, J)  )/ 

DMX(J)  =  AC0F(2,J)  /  (  2.0*AM  ) 

DMY(J)  =  ACOF(3,J)  /  (  2.0*AM  ) 

c 
c 

90 

CONTINUE 

•COMPUTE  THE  QUADRATIC  SHAPE  FUNCTIONS  AND  DERIVATIVES..... 

)/(2.0*AM) 


DO    120    K    =    2t    6,    2 
J    =    K    /    2 

L    =    J    ♦    1 

IF(    L    .EQ.    4    )    L    =    1 

XN(K-l)     =    XM(J)«M    2.0*XM(J)     »■    1.0    ) 
DNX(K-l)     =    DMX(J)*(    4.0*XM(J)     -    1.0    ) 
DNY(K-l)     =    DMY(J)*(    4.0*XM(J)     -    1.0    > 
XN(K)     =    4.0*XM(J)*XM(L) 

DNX(K)     =    4.0<M    XM(J)*DMX(L)     ♦    XM(L)*DMX(J)     ) 
DNY(K)     =    4.0*(    XM(J)*DMY(L)     ♦    XM(L)*DMY(J)     ) 
120    CONTINUE 

.....COMPUTE  R,  S,  H  AND  THEIR  DERIVATIVES 

R  =  0.0 

S  =  0.0 

DRDX  =  0.0 

DRDZ  =  0.0 

DSDX  =  0.0 

DSDZ  =0.0 

DO  270  M  =  1»  6 

MR  =  NOP(NN.M) 

R  =  R  ♦  XN(M)*VEL(1»MR) 

DRDX  =  DRDX  ♦  DNX (M) *VEL ( 1 .MR) 

DRDZ  =  DRDZ  ♦  DNY (M) *VEL < 1 ,MR) 

S  =  S  ♦  XN(M)*VEL(2»MR) 
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■ 


DNX(M)*VEL(2»MR) 
DNY(M)»VEL(2»MR) 


DSDX  =  DSDX  ♦ 

DSDZ  =  OSDZ  ♦ 
270  CONTINUE 

H  =  0.0 

DHDX  =  0.0 

DHOZ  =  0.0 

OAODX  =  0.0 

DAODZ  =  0.0 

GAMMA  =  0.0 

DO  275  M  =  1,  3 

MC  =  2*M  -  1 

MR  =  NOP(NN.MC) 

H  =  H  ♦  XM(M)*VEL(3»MR) 

DHDX  =  DHDX  ♦  DMX (M) *VEL < 3»MR) 

DHDZ  =  DHDZ  ♦  DMY (M) *VEL ( 3»MR) 

DAODX  =  DAODX  ♦  DMX (M) *AO (MR) 

DAODZ  =  DAODZ  ♦  DmY (M) *AO (MR) 
275  CONTINUE 

GHC  =  GRAV*H**3 

VECQ  =  SQRT(  R*»2  ♦  S**2  ) 

TFRIC  =  0.0 

IF(  VECQ  .GT.  1.0E-6  )  TFRIC  = 

FRN  =  0.0 

F5N  =  0.0 
....EVALUATE  THE  BASIC  EQUATIONS  WITH  PRESENT  VALUES. 


FFACT    /    VECQ 


.MOMENTUM    TERMS, 


279    FRN    =    FRN    ♦    H*(R*oRDX    ♦    S*DRDZ)    -    R*<R«DHDX    ♦    S*DHDZ) 
FSN    =    FSN    ♦    H*(S*DSDZ    ♦    R*DSDX)    -    S»(R*DHDX    ♦    S*DHDZ) 


•VISCOUS    TERMS, 


FRN  =  FRN  -  EPSX*(2.0*R*(DHDX**2  ♦  DHDZ»»2)  - 

1   2.0*H*(DHDX*DRDX  ♦  DHDZ*DRDZ>  ) 
FRNX  =  EPSX*(DRDX*H**2  -  H*R*DHDX) 
FRNZ  =  EPSXMDRDZ»H**2  -  H*R*DHDZ) 
FSN  =  FSN  -  EPSZ*(2.0*S*(DHDX*»2  ♦  DHDZ*»2)  - 

1   2.0*H*(DHDX*DSDX  ♦  DHDZ*DSDZ)  ) 
FSNX  =  EPSZ»(DSDX«H**2  -  H*S*DHDX) 
FSNZ  =  EPSZ*IDSDZ*H*»2  -  H*S*DHDZ) 


■SURFACE  AND  BOTTOM  SLOPE  (PRESSURE)  TERMS, 

FRN  =  FRN  ♦  GHC*DAODX 

FSN  =  FSN  ♦  GHC*DAODZ 

FRNX  =  FRNX  -  0.25*H*GHC 

FSNZ  =  FSNZ  -  0.25*H*GHC 


BOTTOM  FRICTION  TERMS, 


FRN  =  FRN  ♦  FFACT*VECQ*R 
FSN  =  FSN  +  FFACT*VECQ*S 
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C CORIOLIS  TERMS 

C 

FRN  =  FRN  -  0MEGA*S*H**2 

FSN  =  FSN  ♦  0MEGA*R*H**2 
C- 

C- EVALUATE  TERMS  FOR  VARIABLE  DENSITY..... 

C- 
C 

C MOTION  EQUATIONS 

C 

DO  285  M  =  1*  NCN 

IA  =  1  ♦  NDF*(M-1) 

F(IA)  =  F(IA)  -  AMW*(XN(M)»FRN  ♦  DNX(M)*FRNX  ♦  DNY(M)*FRNZ) 

IA  =  IA  ♦  1 

FUA)  =  F(IA)  -  AMW*(XN(M)»FSN  ♦  DNX(M)*FSNX  ♦  DNY(M)*FSNZ> 
285  CONTINUE 
C 

C CONTINUNITY  EQUATION 

C 

FRN  =  DRDX  ♦  DSDZ 

DO  290  M  =  It  3 

IA  =  3  ♦  2*NDF*(M-1) 

F(IA)  =  F(IA)  -  AMW*XM(M)«FRN 
290  CONTINUE 
C- 

C- CONVECTION-DIFFUSION  EQUATION  FOR  OENSITY 

C- 
C 

C FORM  THE  X  MOTION  EQUATIONS 

C 

C FLOW  TERMS 

C 

DO  300  M  =  It  6 

WRITE ( NO t 7096)  (NORM t I t FLFR ( I t 1 ) tI=ltNFLFR) 

7096  FORMATQ3XtA<+tI5tT55tF10.3) 
11=0 

DO  321  I=2»NLEN 

DO  322  J=ltNFLFR 

DO  323  K=1.NEM6 

11=11*1 

WRITE ( NO t 7097)  I1,FLEN(I) tFLFR(Jtl) tEMB(K) 

7097  FORMAT(l7XtI5tT35,F10.3tT55tFl0.3tT66tF10.3) 
323    CONTINUE 

322    CONTINUE 
321    CONTINUE 

IF(INORM.EQ.l)  GO  TO  11 

DO  330  I=ltIK 

L=I*1 

L=IIN(L) 

L1=NNDS(I) 

WRITE(NOt6000) 

WRITE (N0t80 10)  Lt (NUP(ItJ) tNDWN(ItJ) tWELEV(ItJ) tWCF(ItJ) , 
lNUPP(ItJ)  tNDWNNd,  J)  tJ  =  l»Ll) 
8010   FORMAT(lH0t//////,30Xt •  OVERTOPPING  NODES  FOR  TAPE  «tl5t//t 

1  17Xt  »IN«t9Xt »0UT't4Xt 'EMBANK* t lOXt • WCF • t //♦ 

2  40(/tlOXt2I10t2Fl5.4t2I10)> 
330    CONTINUE 

11     DO  2000  I=ltNLEN 
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WRITE (NO ♦10001)  (KNN05(I»J) *J=1»NNDSD) 

10001  FORMAT(lH0,//,10X, 'DOWNSTREAM  NODES • ♦ 10 </» 10X, 1 12) > 

2000  CONTINUE 

DO  2001  I=1,NFLFR 
WRITE(NO, 10002)  I 

10002  FORMAT(1HO»///»20X» 'FLOOO  N0.»,I5) 

WRITE (NO. 10003)  (BXV ( I , J) , BZV < I ♦ J) tJ=l.NNDSUP) 

10003  FORMATQH0,/,10X,  «X  VEL.',10X,'Z  VEL. ' , 10 (/»2 ( 10X,F6.2) ) ) 
WRITE (NO .10004)  (HTI (ItJ) ,J=1,NNDSD> 

10004  FORMAT ( 1H0, //,15X,' STAGES  10 </tl5X»F7. 2) ) 

2001  CONTINUE 
IF(IFLG.EQ.l)  NI=IIN(1) 
GO  TO  15 

*  ENTRY  INPUT3 

15     CONTINUE 

READ(NI,3)  DEMBK 
C 

C  READ  AND  PRINT  TITLE  AND  CONTROL 

C 

WRITE(NO,6000) 

READ(NI,500S)  TITLE 

WRITE(NO*6005)  TITLE 

RE AD (N 1,50  10)  NP,NE»NMAT ,NPX»NBX, IPRT,NXZL,NZXL»NCL, IwIND.NDFX, IRO 

WRITE(NO,6010)NP,NE,NMAT,NPX,NBX,IPRT,NXZL,NZXL»NCL,IWIND»NDFX,IRO 

READ(NI,5020)   OMEGA, ELEV , TEMP, XSCALE,ZSCALE 

WRITE (NO, 6020)  OMEGA ♦ ELEV, TEMP, XSCALE, ZSCALE 

RE AD (N I, 5025)   NIT  I »NITN ,NCBC,DELT,TMAX 

WRITE (NO, 6025)  NlTl »NITN,NCBC,DELT,TMAX 

NDF  =  NDFX 
C- 

C- INITALIZE  ARRAYS  NOT  COVERED  BY  INPUT 

C- 

DO  25  J  =  1,  NP 

AO(J)  =  0.0 

CORO(J,l)  =  0.0 

CORD(J,2)  =  0.0 

ALFA(J)  =  0.0 

NFIX(J)  =  0 

NFIXH(J)  =  0 

DO  20  K=l,3 

SPEC(J,K>  =  0.0 

NBC(J,K)  =  0 
20  CONTINUE 
25  CONTINUE 
C- 

C- READ  ELEMENT  CHARACTERISTICS 

C- 

READ(NI,50  30)   (J, (ORT(J,K) ,K=1,5) ,I=1,NMAT) 

WRITE (NO, 6030)  (J, (ORT < J,K) ,K=1 ,5) ,J=1,NMAT) 
C- 

C- READ  FIXED  NODAL  PARAMETERS 

C- 

READ(NI,5035)  (J,CORD(J,l) tCORD < J, 2) » AO ( J) ,K=1,NPX) 
C 
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C COMPUTE  INTERMEDIATE  POINTS 

C 

IF<  NXZL  .LE.  0  )  GO  TO  95 

DO  94  K  =  1*  NXZL 

READ(NI,5010)  NAtNBtNIP 

RATIO  =  (  C0RD(NB,2)  -  C0RD(NAt2)  )  /  (  CORD(NBtl)  -  CORD(NA*l  )  ) 

DO  93  J  =  It  14 

IF  I    NIP(J)  .LE.  0  )  GO  TO  94 

NC  =  NIP(J) 

CORD<NCt2)  =  CORD(NA»2)  ♦  RATIO*(  CORD(NCtl)  -  CORD(NA,l)  ) 

93  CONTINUE 

94  CONTINUE 

95  IF(  NZXL  .LE.  0  )  GO  TO  100 
DO  97  K  =  1,  NZXL 
READ(NI,5010)  NAtNBtNIP 

RATIO  =  (  CORD(NB,l)  -  CORD(NA»D  )  /  (  C0RD(NBt2)  -  CORD(NA,2>  ) 

DO  96  J  =  It  14 

IF{    NIP(J)  .LE.  0  )  GO  TO  97 

NC  =  NIP(J) 

CORD(NC»l)  =  CORD(NAtl)  ♦  RATI0*(  C0RD(NCt2>  -  C0RD<NA,2)  > 

96  CONTINUE 

97  CONTINUE 

100  IF(  IRO  .LE.  0  )  GO  TO  119 

READ(NI,5010>  (NFIXH(J) tJ=l,NP) 
119  CONTINUE 
C- 

C- READ  FIXED  ELEMENT  PARAMETERS 

C- 

READ(NI,5040)  (Jt (NOP(JtK) »Kxif6) tlMAT(J) tI=ltNE) 

C- 

C- READ  LINES  FOR  cONTINUNITY  CHECKS 

C- 

IF(  NCL  .LT.  1  )  GO  TO  129 

121  DO  123  J  =  1*  NCL 
READ(NI,5010)  (L InE ( J tK) t K=l ♦ 16) 
DO  122  K  =  It  16 

IF(  LlNE(JtK)  .LE.  0  )  GO  TO  122 
LMT(J)  =  K 

122  CONTINUE 

123  CONTINUE 
129  CONTINUE 

C 

C  READ  VARIABLE  NODAL  PARAMETERS  

C 

RE AD (N I, 5050)  (NtNFIX(N) t (SPEC(NtM) tM=l, 3) ,L=1»NBX) 
C- 

C- INPUT  INITIAL  CONDITIONS,  IF  SPECIFIED 

C- 

150  CONTINUE 

DO  102  J  =  It  NE 

IF(  IMAT(J)  .EQ.  0  >  GO  TO  102 

DO  101  K  =  2t  6*  2 

Nl  =  NOPUtK-1) 

N2  =  NOP(JtK) 
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101 


102 


5070 


560 


563 


N3  =  MOD(K*l,6) 

N3  =  N0P(JtN3> 

C0RD(N2tl)  =  0.5*(  C0RD(N1»1)  ♦  C0RD(N3tl)  ) 

C0RD<N2t2)  =  0.5»(CORD(Nlt2)  ♦  C0RD(N3,2)  ) 

A0(N2)  =  0.5*(  AO(Nl)  ♦  A0<N3)  ) 

CONTINUE 

Nl  =  NOP(Jtl) 

N2  =  NOP(Jt3) 

N3  =  N0P(Jt5) 

CONTINUE 

IF(NITI.GT.O)  GO  TO  170 

REAO(NI,5070)  (<VEL(M,N) 

FORMAT<10X,3F10.2> 

NITI  =  IAbS(  NITI  ) 


tM=l»3) »N=1.NP) 


DO  563  J 
VEL(3tJ) 
VELUtJ) 

VEL(2tJ) 
CONTINUE 
ROAVG=l. 93994 
GO    TO    175 


It    NP 
VEL(3tJ> 
VEL(ltJ) 
VEL(2tJ> 


AO(J) 

VEL(3tJ) 
VEL(3tJ) 


INITIALIZE  PRIMARY  STATE  VARIABLE  ARRAY, 


170  ROAVG=l. 93994 
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DO  103  J 
VEL(ltJ) 
VEL(2tJ) 
VEL(3»J) 

CONTINUE 


It  NP 

0.0 

0.0 

ELEV  -  AO(J) 


■SETUP  ONE  TIME  RUN  PARAMETERS, 


175  NOPT  =  NDF  *  NCN 

OMEGA  =  1.458E-4*SlN(  OMEGA/57.3  ) 


■COMPUTE  MIDSIDE  VALUES, 


DO  99  J  =  1,  NP 


CORD(Jtl) 
CORD(J»2> 

99  CONTINUE 


=  CORD(Jtl) 
=  C0RD(Jt2) 


XSCALE 
ZSCALE 


-COMPUTE  AREAS  AND  SIDE  SLOPES  FOR  NODES  WITH  BC«S 


DO  110  J  =  It  NE 

IF(  IMAT(J)  .EQ.  0  >  GO  TO  110 

Nl  =  NOP(J,l) 

N2  =  N0P(Jt3) 

N3  =  N0P(Jt5) 

XAREA(J)  =  0.5*(  C0RD(N1»1)*C0RD(N2»2)  ♦  CORD (N2t 1) *C0RD (N3,2) 

1  C0R0(N3t l)*C0RD(Nlf2)  -  CORD (N3» 1 ) *CORD (N2t 2)  - 

2  C0RD(N2tl)»C0RD(N1.2>  -  CORD (Nl t 1 ) *CORD (N3.2)  ) 
DO  105  K  =  2t  6,  2 
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N  =  NOP<J»K) 

IF(  NFIX(N)/1000  .EQ.  0  )  GO  TO  105 


Nl  = 

K  -  1 

Nl  = 

N0P(J,N1) 

N2  = 

M00(K*1,6) 

N2  = 

NOP(J»N2> 

DY  = 

CORD<N2»2)  - 

CORDCN1, 

.2) 

OX  = 

C0RD(N2*1)  - 

CORDtNl, 

,1) 

IF( 

DX  )  104,105* 

104 

DEL 

=  DY  /  DX 

104 

ALFA(N)  =  ATAN(  DEL  > 

ALFA(Nl)  =  ALFA(N) 

ALFA(N2)  =  ALFA(N) 
105  CONTINUE 
110  CONTINUE 
C 

C INERTIAL  COMPONENTS 

C 

FEEA(M)  =  AMW*(  XN<M)*(  H*DRDX  -  2.0»R»DHDX  -  S*DHDZ  ) 
1   ♦  DNX(M)*H*R  ♦  dNY(M)*H»S  ) 

FEED(M)  =  AMW*XN(M)*<  H*DRDZ  -  R*DHDZ  ) 
C 

C VISCOUS  COMPONENTS 

C 

FEEA(M)  =  FEEA(M)  -  AMW*EPSX*  (  XN(M)»(  2.0*DHDX**2  ♦  2.0»DHDZ**2  ) 
1   -  DNX(M)*2.0*H*DHOX  -  DNY(M)*2.0*H*DHDZ  ) 

FEE8(M)  =  -  AMW*EPSX*<  XN(M)*H*DHDX  -  DNX(M)*H**2  ) 

FEEC(M)  =  -  AMW*EPSX*(  XN(M)*H*DHDZ  -  DNY(M)*H**2  ) 
C 

C BOTTOM  FRICTION  COMPONENTS 

C 

FEEA(M)  =  FEEA(M)  ♦  AMW»XN  (M)  *TFRIC*  (  2.0«R**2  ♦  S»»2  ) 

FEED(M)  =  FEED(M)  ♦  AMW*XN (M) *TFRIC*R*S 
C- 

C- CORIOLIS  COMPONENTS 

C- 
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FEEO(M)  =  FEED(M)  -  AMW*XN (M) *0M£GA*H»*2 
300  CONTINUE 
C- 

C- FORM  THE  TIME  TERMS 

C- 

DO  310  M  =  If  NCN 
IA  =  1  ♦  NDF»(M-1) 
DO  305  N  =  If  NCN 
IB  =  1  ♦  NDF»(N-1) 

ESTIFM(IAflB)  =  ESTIFM(IAflB)  ♦  XN (M) *FEEA (N)  ♦  DNX (M) *FEEB (N) 
1   ♦  DNY(M)*FEEC(N) 
IB  =  IB  ♦  1 
.   ESTIFM(IAflB)  =  EsTIFMdAt  IB)  ♦  XN  (M)  *FEED  (N) 
305  CONTINUE 
310  CONTINUE 
C 

C FORM  THE  HEAD  TERMS 

C 

DO  315  M  =  If  3 
C- 

C- INERTIAL  COMPONENTS 

C- 

FEEA(M)  =  AMW*(  XM<M)*(  R»DRDX  ♦  S*DRDZ  )  -  DMX(M)*R**2 
1   -  DMY(M)»R*S  ) 
C 
C VISCOUS  COMPONENTS 

c 

FEEA(M)  =  FEEA(M)  -  AMW»EPSX* (  XM(M)*(  -2.0*DHDX*DRDX  - 
1   2.0*DriDZ*DRDZ  )  ♦  DMX(M)*(  4.0*R*DHDX  -  2.0*H*DRDX  ) 
1   ♦  DMY(M)»(  4.0*R*DHDZ  -  2.0*H*ORDZ  )  ) 

FEEB(M)  =  -AMW»EPSX*(  XM(M)M  R*DHDX  -  2.0*H»DRDX  )  ♦  DMX(M)*R»H  ) 

FEEC(M)     =    -AMW»EPSXM    XM(M)*(    R*DHDZ    -    2.0*H*DRDZ    )     ♦    DMY(M)<*R*H    ) 
C 

C PRESSURE  COMPONENTS 

C 

FEEA(M)  =  FEEA(M)  ♦  AMW*XM (M) »3. 0*GRAV*DAODX*H**2 

FEEB(M)  =  FEEB(M)  -  AMW*XM (M) *GHC 
C 

C CORIOLIS  COMPONENTS 

C 

FEEA(M)  =  FEEA(M)  -  AMW*XM <M> *2. 0»OMEGA*S*H 
C 

C WIND  STRESS  COMPONENTS 

C- 

315  CONTINUE 
C- 

C- FORM  THE  TIME  TERMS 

C- 

DO  325  M  =  If  NCN 

IA  =  1  ♦  NDFMM-1) 

DO  320  N  =  If  3 

IB  =  3  +  2*NDF*(N-1) 

ESTIFM(IAflB)  =  EsTIFMdAfIB)  ♦  XN  (M)  *FEEA  (N)  ♦  DNX  (M)  *FEEB  (N) 
1   ♦  DNY(M)*FEEC(N) 
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320  CONTINUE 
325  CONTINUE 
C- 

C- FORM  THE  DENSITY  TERMS..... 

C- 
C 

C FORM  THE  Y  MOTION  EQUATIONS 

C 

C FLOW  TERMS 

C 

DO  330  M  =  It  6 
C 

C./...INERTIAL  COMPONENTS 

C 

FEEA(M)  =  AMW*(  XN(M)M  H»DSDZ  -  2.0*S*DHDZ  -  R*DHDX  ) 
1   ♦  DNX(M)»H*R  ♦  DNY(M)*S»H  ) 
FEED(M)  =  AMW*XN(M>*(  H»DSDX  -  S*DHDX  ) 
C 
C VISCOUS  COMPONENTS 

c 

FEEA(M)  =  FEEA(M)  -  AMW*EPSZ*(  XN(M)<M  2.0»DHDX*»2  ♦  2.0*DHDZ»»2  ) 
1   -  DNX(M)*2.0*H*DHUX  -  DNY (M) *2. 0*H»DHDZ  ) 

FEEB(M)  =  -AMW*EPSZ*(  XN(M)*H*DHDX  -  DNX(M)*H**2  ) 

FEEC(M)  =  -AMW*EPSZ*(  XN(M)*H«DHDZ  -  DNY(M) *H**2  ) 
C 

C BOTTOM  FRICTION  COMPONENTS 

C 

FEEA(M)  =  FEEA(M)  ♦  AMW*XN (M) *TFRIC» (  2.0*S**2  *R**2  ) 

FEED(M)  =  FEED(M)  ♦  AMW*XN (M) *TFRIC*R*S 
C 

C CORIOLIS  COMPONENTS 

C 

FEED(M)  =  FEED(M)  *  AMW*XN  (M)  *0MEGA*H»*2 
330  CONTINUE 
C- 

C- FORM  THE  TIME  TERMS 

C- 

DO  340  M  =  li  NCN 

IA  =  2  «•  NDF*(M-1) 

DO  335  N  =  1*  NCN 

IB  =  1  ♦  NDFMN-1) 

ESTIFM(IA»IB)  =  EsTIFM(IAfIB)  ♦  XN <M) *FEED (N) 

IB  =  13  ♦  1 

ESTIFM(IAiIS)  =  ESTIFM(IA.IB)  ♦  XN <M) *FEEA (N)  ♦  DNX <M) *FEE6 <N) 
1   ♦  DNY(M)*FEEC(N) 
335  CONTINUE 
340  CONTINUE 
C 

C HEAD  TERMS 

C 

DO  345  M  =  1»  3 
C- 

C- INERTIAL  COMPONENTS 

C- 
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FEEA(M)  =  AMW*(  XM(M)*(  S*DSDZ  ♦  R*OSDX  )  -  DMX<M)'*R*S 
2   -  DMY(M)»S*»2  ) 
C- 
C- VISCOUS  COMPONENTS 

c- 

FEEA(M)     =    FEEA(M)     -    AMW*EPSZ*  (    XM(M)»(    -2.  0*DHDX<:DSDX 

1  -    2.0*DHDZ*DSDZ    )     ♦    DMX(M)*(    4.0*S*DHDX    -    2.0*H*DSDX    ) 

2  ♦    DMY(M)«(    4.0*S*DHOZ    -    2.0*H*DSDZ    )     ) 

FEE8(M)     =    -AMW*EPSZ*(    XM(M)*(    S*DHDX    -    2.0*H*DSDX    )     ♦    DMX(M)*S*H    ) 

FEEC(M)     =    -AMW*EPSZ*<    XM(M)*(    S*DHDZ    -    2.0»H*DSDZ    )     ♦    DMY(M)«S*H    ) 
C 

C PRESSURE  COMPONETS 

C 

FEEA(M)  =  FEEA(M)  ♦  AMW*XM  (M)  »3. 0*GRA\/*DAODZ»H**2 

FEEC(M)  =  FEEC(M)  -  AMW*XM(M)*GHC 
C 

C CORIOLIS  COMPONENTS 

C 

FEEA(M)  =  FEEA(M)  ♦  AMW*XM(M> *2.0*OMEGA»R*H 
C- 
C- WINO  STRESS  COMPONENTS 

c- 

345  CONTINUE 
C- 

C- FORM  THE  TIME  TERMS 

C- 

DO  355  M  =  1*  NCN 
IA  =  2  ♦  NDF<MM-1) 
DO  350  N  =  It  3 
IB '■    =    3  ♦  2*NDF»(N-1) 

ESTIFM(IA.IB)  =  EsTIFM(IAtlB)  ♦  XN (M) *FEEA (N)  +  DNX (M) *FEE8 (N) 
1   ♦  DNY(M»*FEEC(N) 
350  CONTINUE 
355  CONTINUE 
C- 

C- FORM  THE  DENSITY  TERMS 

C- 

c 

C FORM  THE  CONTINUNITY  EQUATIONS 

C 

DO  365  M  =  It  3 

IA  =  3  ♦  2*NDF*(M-1) 

DO  360  N  =  It  NCN 

IB  =  1  ♦  NDF«(N-1) 

ESTIFM(IAtlB)  =  ESTIFM(IA,IB)  ♦  AMW*DNX (N) *XM <M) 

IB  =  IB  ♦  1 

ESTIFM(IAtlB)  =  EsTIFM(IAtlB)  ♦  AMW*DNY (N) *XM (M) 
360  CONTINUE 
365  CONTINUE 
C- 
C- 
C- CONVECTION-DIFFUSION  EQUATION  FOR  DENSITY 


•  •  •  • 


C- 

c- 


164 


500  CONTINUE 
C- 

C-  APPLY  TRANSFORMATIONS  TO.  STIFFNESS  AND  FORCE  MATRICES  FOR  SLOPING  6.  C. 
C- 

DO  1000  N=1»NCN 
Nl=NOP(NN*N) 

IF(ALFA(ND)  820»l000»820 
820  CA=C0S(ALFA(N1) ) 
SA=SIN(ALFA(N1) ) 
IB=NDF«(N-1> *1 
DO  900  M=1»NCN 
DO  900  MM=l,NOF 
I«A=NDF* (M-l) *MM 

TEMP  =  ESTIFM(IA,IB)*CA  ♦  ESTIFM ( I  A. IB* 1 ) *SA 
ESTIFM(IA.IB+1)=-ESTIFM(IA»IB)*SA  ♦  ESTIFM(IA,IB*1)*CA 
ESTIFM(IAtIB)=TEMP 
900  CONTINUE 

DO  990  M=1»NCN 
DO  990  MM=1,NDF 
IA=NDF*(M-1) *MM 

TEMP  =  ESTIFM(IB,IA)*CA  ♦  ESTIFM ( IB* 1 ♦ I  A) *SA 
ESTIFM(IB*1»IA)=-ESTIFM(IB»IA)«SA  ♦  ESTPFM  ( IB*  1 » IA)  *CA 
ESTIFM(IB,IA)=TEMP 
990  CONTINUE 

TEMP=CA»F(IB)  *  SA*F(IB*1) 
F(IB*1)=-F(IB)*SA  *  F(IB*1)*CA 
F(IB)=TEMP 
1000  CONTINUE 
C 

C  INSERT  BOUNDARY  CONDITIONS 

C 

IF(NPR.GT.l)  GO  TO  2410 
DO  2400  MM=1,NCN 
N=NOP(NN»MM) 
DO  2350  M=1,NDF 
IF(SPEC(N,M) )  2275*2350*2275 
2275  IB  =  NDF*(MM-1)*M 
IA=0 

DO  2300  NC=ltNCN 
DO  2300  K=1»NDF 
IA=IA*1 
2300  F(IA)=F(IA)-ESTIFM(IA,IB)»SPEC(N,M) 
2350  CONTINUE 
2400  CONTINUE 
2410  CONTINUE 

DO  1050  1=1. NCN 
J  =  NOP (NN.I) 
IA=NDF*(I-1) 
DO  1050  K=1,NDF 
IA=IA+1 
JA=NBC(JtK) 

IF(JA.EQ.O)  GO  TO  1050 
Rl (JA)=R1 (JA) *F(lA) 
1050  CONTINUE 
1100  CONTINUE 
RETURN 
END 
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SUBROUTINE  FANDS (R 1 ♦ SK ,NTEQ) 

COMMON/BLKA/  TITLE  (20)  »NP,NE»NB»NDF»NCN*NMAT,NSZF,LI,»MAXN*NPR» 

1  M8AN0»NLL.NCL.GRAV.R0AVG,0MEGA.N0PT,NITI.NITN.NCBC. 

2  ICYC.DELT.TMAX.ALTM.CHI.FACT.URF.TET 
C0MM0N/8LKB/  CORD ( 200 . 2) .NBC ( 200 ♦ 3) »VEL (3. 200) .SPEC (200 .3)  . 

1  ALFA (200) ,AO(200) .NOP (90.6) ♦ I MAT (90) .ORT(10.5) . 

2  NFIXH(200) »NFIX(500) .RPERM(500) 
COMMON/BLKE/  ESTIFM ( 30 . 30 ) .F(30) 
DIMENSION  Rl(l) .SK(NTEQ.l) 


290 


300 


SET  BANDMAX  AND  NO  OF  EQUATIONS 


NBAND=MBAND 

DO  290  J  =  1.  NS2F 

RKJ)  =  RPERM(J) 

DO  300  N=1,NSZF 

DO  300  M=1.NBAND 

SK(N.M)=0. 


SCAN  ELEMENTS 


DO  400  N=1.NE 
IF(  IMAT(N)  .EG. 
CALL  COEFS(N) 


0  )  GO  TO  400 


RETURNS  ESTIFM  AS  STIFFNESS  MATRIX 
STORE  ESTIFM  IN  SK 
FIRST  ROWS 


DO  350  JJ=1.NCN 

NROW=NOP(N.JJ) 
DO  350  J=l.NOF 
NR0WB=N8C(NR0W. J) 
IF(NROW8.EQ.O)  GO  TO 
I=(JJ-1)*NDF*J 


350 


THEN  COLUMNS 


DO  330  KK=1,NCN 

NCOB=NOP(N.KK) 

DO  320  K=1.NDF 

NCOLB=NBC(NCOB.K) 

IF(NCOLB.EQ.O)  GO  TO  320 

L=(KK-1)*NDF«-K 

NCOL=NCOLB-NROWB*NFIX (NROWB) 
310  SK(NROWB.NCOL)=SK(NROWB,NCOL)*ESTIFM(I,L) 
320  CONTINUE 
330  CONTINUE 
350  CONTINUE 
400  CONTINUE 
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C«**»  FORWARD  ELIMINATION 
C 

30  FORMAT(lH0t6(E15.6»lX) ) 

NEQS=NSZF 
C 

C*«    MAIN  LOOP  ON  EQUATIONS 
C 

NED=NEQS-1 

DO  280  1=1, NED 

JMIN=NFIX(I) 

JMAX=LI*JMIN 

IF(JMAX.GT.MBAND)  JMAX=M8AND 
C 

C«*    NORMALIZE  COEFFICIENTS 
C 

AATEMP  =  SK(I»JMIN) 

IF(ABS(AATEMP)  ,LT«  1.0E-04)  WRITE<6»10)  I»AATEMP 
10  FORMAT (//t  1H  ,I10»F20.4) 

DO  200  J=JMIN,JMAX 

SK(I*J)  =  SK(I,J)  /  AATEMP 
200  CONTINUE 

Rl (I)  =  Rl(I)  /  AATEMP 
C 

C*»    SET-UP  ROWS  FOR  ELIMINATION 
C 

KMIN  b  I  ♦  1 

KMAX=I*LI 

IF  (KMAX  .GT.  NEQS)  KMAX=NEQS 

DO  260  K=KMIN,KMAX 

JK=NFIX(K)*I-K 

IF(JK)  260,260,205 
205  CONTINUE 

IF(  SK(KtJK)  )  210*260,210 
210  CONTINUE 
C 

C»*    ELIMINATE  VARIABLE  I  FROM  EQUATION  K 
C 

JJ  =  JK 

JJMIN=JMIN*1 

JJMAX=  JMAX 

J=JJ*JMAX-JMIN 

IF(J.GT.MBAND)  JJMAX=JJMAX*MBAND- J 

DO  240  J=JJMINfJJMAX 

JJ=JJ*1 

SK(K,JJ>  =  SK(K,Jj)  -  SK(I,J)*SK(K,JK> 
240  CONTINUE 

R1(K)  =  RKK)  -  Rl  <I)*SKCK,JK) 
C 

260  CONTINUE 
2ti0  CONTINUE 
C 

C***<»  BACK  SUBSTITUTION 
C 

JNEQ=NFIX(NEQS) 

RKNEOS)  =  RKNEQS)  /  SK  (NEQS,  JNEQ) 

DO  480  11=2, NEQS 

I  =  NEQS  ♦  1  -  II 

JJ=NFIX(I) *1 

JMAX=NFIX(I)*LI 

IF(JMAX.GT.MBAND)  JMAX=MBAND 

DO  460  J=JJ,JMAX 

K=J-JJ*1*I. 

Rl  (I)  =  RKI)  -  SK(I,J)*R1(K) 
460  CONTINUE 
480  CONTINUE 

RETURN 

END  167 


FINITE  ELEMENT  MODEL  PROGRAM 
SAMPLE  INPUT  DATA 
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CARD  TYPE 
I 

17  - 

18  - 

19  - 

20  - 

21  - 


22  ~ 


NOCYCLE 

350.0 
TWO-DIMENSIONAL 


199 


-5 


23  ~ 


86 
).00 

1 

2 

3 

4 

5 

6 

7 

1 

3 

5 

7 

9 

19 

21 

23 

25 

27 

38 

40 

42 

44 

46 

48 

60 

62 

64 

66 

68 

70 

82 

84 

86 

88 

90 

92 

104 

106 

108 

110 

112 


7 
312 

7 

5 

30 

50 

50 

30 

75 

0 

1 

2 

3 

5 

2 

3 

5 

7 

10 

5 

6 

8 

10 

12 

13 

10 

10 

10 

10 

12 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 

13 


INITE 

57 
.00 

5.0 
0.0 
0.0 
0.0 
0.0 
0.0 
0.0 
.80 
.00 
.05 
.50 
.10 
.30 
.60 
.55 
.65 
.20 
.20 
.75 
.65 
.45 
.95 
.25 
.50 
.55 
.80 
.80 
.00 
.30 
.35 
.25 
.25 
.25 
.25 
.35 
.65 
.75 
.75 
.75 
.75 


ELEMENT 

52     0 

0.00 

50.0 
50.0 


250.0 

250.0 

250.0 

250.0 

750.0 

6.75 

10.75 

13.25 

16.50 

20.35 

5.70 

8.250 

10.05 

12.00 

14.35 

3.70 

5.25 

7.20 

9.00 

10.50 

10.70 

0.00 

0.45 

2.80 

4.60 

6.50 

7.10 

3.30 

3.40 

4.00 

5.00 

5.80 

5.90 

3.30 

3.40 

4.00 

5.00 

5.80 


BACKWATER  MODEL,  TALLAHALA  CkEEK  FLOOD 
2     2     4     0     3     0 
-200.00     200.00 

42 
42 
12. 
lb 
15. 
42 
42 

305.00 

305.00 

304.40 

304.00 

305.00 

305.50 

305.3 

305.00 

305.00 

306.00 

304.00 

305.00 

303.50 

306.00 

306.00 

306.00 

305.50 

305.50 

305.50 

303.00 

305.00 

305.50 

300.00 

300.00 

298.00 

304.00 

304.40 

304.40 

300.00 

298.00 

298.00 

304.00 

304.60 
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114 

13.65 

5.90 

304. 

60 

126 

13.65 

0.00 

308. 

.00 

128 

13.90 

0.40 

308. 

,00 

130 

15.55 

3.20 

306. 

00 

132 

15.90 

5.10 

304, 

00 

134 

14.95 

7.00 

306. 

00 

136 

13.65 

7.10 

306. 

.50 

148 

18.35 

0.00 

308, 

,20 

150 

18.50 

4.50 

308. 

,20 

152 

18.50 

7.25 

308, 

20 

154 

17.00 

10.00 

309. 

00 

156 

14.05 

10.70 

309, 

00 

23  - 

158 
170 

13.65 

22.10 

L0.75 
0.00 

309. 
309, 

00 
00 

172 

22.10 

3.50 

308, 

40 

174 

22.10 

6.85 

308, 

,60 

176 

22.00 

10.50 

309, 

00 

178 

21.05 

14.75 

309, 

20 

180 

21.00 

15.00 

309, 

20 

191 

27.25 

0.00 

309, 

,10 

193 

27.25 

3.10 

308. 

,90 

195 

27.25 

6.35 

308. 

40 

197 

27.25 

9.50 

309. 

,20 

-  199 

27.25 

13.85 

309, 

50 

24  ~ 

60 

1 

38 

19 

25   - 

48 

9 

27 

1 

9 

3 

5 

7 

92 

48 

70 

1 

172 

182 

191 

181 

170 

171 

5 

2 

172 

183 

193 

192 

191 

182 

5 

3 

172 

184 

195 

194 

193 

183 

5 

4 

174 

185 

195 

184 

172 

173 

5 

5 

174 

186 

197 

196 

195 

185 

5 

6 

176 

187 

197 

186 

174 

175 

5 

7 

176 

138 

199 

198 

197 

187 

6 

8 

176 

177 

178 

189 

199 

188 

6 

9 

180 

190 

199 

189 

178 

179 

1 

10 

150 

160 

170 

159 

148 

149 

5 

27  - 

11 

150 

161 

172 

171 

170 

160 

5 

12 

150 

162 

174 

173 

172 

161 

5 

13 

150 

151 

152 

163 

174 

162 

5 

14 

152 

164 

176 

175 

174 

163 

5 

15 

152 

153 

154 

165 

176 

164 

6 

16 

154 

166 

178 

177 

176 

165 

6 

17 

154 

155 

156 

167 

178 

166 

6 

18 

156 

157 

158 

168 

178 

167 

1 

19 

158 

169 

180 

179 

178 

168 

1 

20 

128 

138 

148 

137 

126 

127 

1 

21 

128 

129 

130 

139 

148 

138 

5 

22 

130 

140 

150 

149 

148 

139 

5 

23 

130 

131 

132 

141 

150 

140 

3 

24 

132 

142 

152 

151 

150 

141 

3 

25 

132 

133 

134 

143 

152 

142 

4 

26 

134 

144 

154 

153 

152 

143 

4 

170 


27     - 


27 

134 

145 

156 

155 

154 

144 

6 

28 

126 

115 

104 

116 

128 

127 

1 

29 

128 

116 

104 

105 

106 

117 

1 

30 

106 

118 

130 

129 

128 

117 

3 

31 

108 

119 

130 

118 

106 

107 

3 

32 

108 

120 

132 

131 

130 

119 

3 

33 

108 

109 

110 

121 

132 

120 

3 

34 

112 

122 

132 

121 

110 

111 

3 

35 

112 

123 

134 

133 

132 

122 

3 

36 

112 

124 

136 

135 

134 

123 

4 

37 

136 

146 

156 

145 

134 

135 

4 

38 

136 

147 

158 

157 

156 

146 

1 

39 

84 

94 

104 

93 

82 

83 

1 

40 

84 

95 

106 

105 

104 

94 

1 

41 

84 

96 

108 

107 

106 

95 

2 

42 

84 

85 

86 

97 

108 

96 

2 

43 

86 

98 

110 

109 

108 

97 

2 

44 

86 

87 

88 

99 

110 

98 

2 

45 

88 

100 

112 

111 

110 

99 

2 

46 

88 

89 

90 

101 

112 

100 

2 

47 

90 

102 

114 

113 

112 

101 

1 

48 

90 

91 

92 

103 

114 

102 

1 

49 

60 

72 

84 

83 

82 

71 

1 

50 

60 

61 

62 

73 

84 

72 

1 

51 

64 

74 

84 

73 

62 

63 

4 

52 

64 

75 

86 

85 

84 

74 

4 

63 

64 

65 

66 

76 

86 

75 

3 

54 

66 

77 

88 

87 

86 

76 

3 

55 

66 

78 

90 

89 

88 

77 

3 

56 

66 

67 

68 

79 

90 

78 

3 

57 

68 

69 

70 

80 

90 

79 

3 

58 

70 

81 

92 

91 

90 

80 

1 

S9 

38 

50 

62 

61 

60 

49 

1 

60 

38 

51 

64 

63 

62 

50 

4 

61 

38 

39 

40 

52 

64 

51 

4 

62 

40 

S3 

66 

65 

64 

52 

3 

63 

40 

41 

42 

54 

66 

53 

3 

64 

42 

55 

68 

67 

66 

54 

3 

65 

42 

43 

44 

56 

68 

55 

3 

66 

44 

57 

70 

69 

68 

56 

3 

67 

44 

45 

46 

58 

70 

57 

3 

68 

46 

47 

48 

59 

70 

58 

1 

69 

19 

29 

40 

39 

38 

28 

4 

70 

19 

20 

21 

30 

40 

29 

4 

71 

21 

22 

23 

31 

40 

30 

4 

72 

23 

32 

42 

41 

40 

31 

4 

73 

23 

24 

25 

33 

42 

32 

4 

74 

25 

34 

44 

43 

42 

33 

4 

75 

25 

26 

27 

35 

44 

34 

4 

76 

27 

36 

46 

45 

44 

35 

4 

77 

27 

37 

48 

47 

46 

36 

1 

78 

1 

11 

21 

20 

19 

10 

4 

79 

1 

2 

3 

12 

21 

11 

*» 

tiO 

3 

4 

5 

13 

21 

12 

7 

171 


27      - 


28     — 


29     - 


81 

5 

14    23 

22 

21 

13 

7 

82 

5 

6     7 

15 

23 

14 

7 

83 

7 

16    25 

24 

23 

15 

7 

84 

7 

8     9 

17 

25 

16 

7 

85 

9 

18    27 

26 

25 

17 

7 

L  86 

136 

124   112 

113 

114 

125 

1 

-191 

192 

193   194 

195 

196 

197 

198 

199 

126 

127 

128   129 

130 

131 

132 

133 

134   135   136 

60 

61 

62    63 

64 

65 

66 

67 

68    69    70 

L-  1 

2 

3     4 
01200 

5 

6 

7 

8 

9 
307.60 

I 

2 

00200 

307.60 

3 

00200 

307.60 

4 

00200 

307.60 

5 

00200 

307.60 

6 

00200 

307.60 

7 

00200 

307.68 

8 

00200 

307.60 

9 

01200 

307.60 

191 

11000 

3. 

53 

192 

11000 

3, 

53 

193 

11000 

3. 

53 

194 

11000 

3, 

53 

195 

11000 

3. 

53 

196 

11000 

3. 

53 

197 

11000 

3. 

53 

198 

11000 

3. 

53 

199 

11000 

3. 

47 

0. 

64 

190 

1000 

180 

11000 

169 

1000 

158 

11000 

147 

10000 

136 

10000 

125 

10000 

114 

11000 

103 

1000 

92 

11000 

81 

1000 

70 

1000 

59 

1000 

48 

11000 

37 

1000 

27 

1000 

18 

1000 

10 

1000 

19 

1000 

28 

1000 

38 

1000 

49 

1000 

60 

11000 

71 

1000 

82 

11000 

93 

1000 

172 


29    - 


32    - 


104 

11000 

115 

10000 

126 

11000 

137 

1000 

148 

1000 

159 

1000 

170 

1000 

181 

1000 

1 

1.24685 

.86765 

308.32418 

1.93994 

0  .  0  0  0  0.0 

2 

.89172 

.22178 

308.15760 

1.93994 

0.00000 

3 

.99457 

.88068 

307.99102 

1.93994 

0.00000 

4 

1.89678 

1.62259 

307.94911 

1.93994 

0.00000 

5 

1.31762 

1.26387 

307.90720 

1.93994 

0.00000 

6 

1.46127 

.88750 

307.92502 

1.93994 

0.00000 

7 

.91617 

.89092 

307.94283 

1.93994 

0.00000 

8 

.71001 

.51706 

307.92271 

1.93994 

0.00000 

9 

.26828 

.31766 

307.90258 

1.93994 

0.00000 

10 

1.07094 

.74524 

309.06053 

1.93994 

0.00000 

11 

.54090 

.61336 

308.61804 

1.93994 

0.00000 

12 

.90647 

.66074 

308.45146 

1.93994 

0.00000 

13 

1.51444 

1.71071 

308.40955 

1.93994 

0.00000 

14 

1.43846 

1.58908 

308.26423 

1.93994 

0.00000 

15 

1.45672 

1.36624 

308.28204 

1.93994 

0.00000 

16 

1.15845 

1.26413 

308.20479 

1.93994 

0.00000 

17 

1.20537 

1.00995 

308.18466 

1.93994 

0.00000 

18 

.86004 

1.01833 

308.17851 

1.93994 

0.00000 

19 

.90584 

.63035 

309.79689 

1.93994 

0.00000 

20 

.65025 

.94368 

309.35440 

1.93994 

0.00000 

21 

.71439 

.68953 

308.91191 

1.93994 

0.00000 

22 

.45280 

.95200 

308.76658 

1.93994 

0.00000 

23 

.45331 

.73183 

308.62125 

1.93994 

0.00000 

24 

.42301 

.78476 

308.54399 

1.93994 

0.00000 

25 

.48969 

.71673 

306.46674 

1.93994 

0.00000 

26 

.59480 

.63744 

308.46058 

1.93994 

0.00000 

27 

.39429 

.46686 

308.45443 

1.93994 

0.00000 

28 

.86645 

.60294 

310.71676 

1.93994 

0.00000 

29 

.72810 

.91719 

310.69395 

1.93994 

0.00000 

30 

.65474 

.97722 

310.25147 

1.93994 

0.00000 

31 

.73418 

1.01726 

310.10614 

1.93994 

0.00000 

32 

.83884 

1.04759 

309.94650 

1.93994 

0.00000 

33 

.76347 

1.02583 

309.86924 

1.93994 

0.00000 

34 

.69913 

.84693 

309.71915 

1.93994 

0.00000 

35 

.53750 

.79372 

309.71300 

1.93994 

0.00000 

36 

.56821 

1.01544 

309.64136 

1.93994 

0.00000 

37 

1.80347 

2.13540 

309.63799 

1.93994 

0.00000 

38 

1.16433 

.81023 

311.63663 

1.93994 

0.00000 

39 

.98490 

1.10552 

311.61383 

1.93994 

0.00000 

40 

. 77676 

.92778 

311.59102 

1.93994 

0.00000 

41 

.56977 

1.04225 

311.43139 

1.93994 

0.00000 

42 

.67294 

1.01662 

311.27175 

1.93994 

0.00000 

43 

.56182 

1.02840 

311.12166 

1.93994 

0.00000 

44 

.52164 

.87930 

310.97157 

1.93994 

0.00000 

45 

.32585 

.79465 

310.89993 

1.93994 

0.00000 

46 

.45789 

.97558 

310.82828 

1.93994 

0.00000 

173 
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47 

.56529 

1.41737 

310.82491    ] 

.93994 

0.00000 

48 

0.00000 

0.00000 

310.82154    ] 

.93994 

0.00000 

49 

1.47699 

1.02780 

311.81928    ] 

1.93994 

0.00000 

50 

1.54173 

.85305 

311.81787    ] 

..93994 

0.00000 

51 

1.32034 

1.09532 

311.78774    ] 

,.93994 

0.00000 

52 

.70501 

.54480 

311.76494    ] 

..93994 

0.00000 

53 

.16441 

.56420 

311.72954    ] 

1.93994 

0.00000 

54 

.28528 

.70852 

311.56990    ] 

L.  9  39  94 

0.00000 

55 

.40735 

.64916 

311.52159    ] 

l. 93994 

0.00000 

56 

.14428 

.83667 

311.37150    J 

L. 93994 

0.00000 

57 

.16152 

.72632 

311.29865    1 

l. 93994 

0.00000 

58 

.23234 

.83041 

311.22700    ] 

1.93994 

0.00000 

59 

.02352 

1.36902 

311.22363    ] 

L. 93994 

0.00000 

60 

0.00000 

0 .00000 

312.00192    ] 

L. 93994 

0.00000 

61 

.90417 

-.25288 

312.00051    ] 

L. 93994 

0.00000 

62 

1.57164 

-.32019 

311.99910    : 

1.93994 

0.00000 

63 

1.88405 

-.14004 

311.96397 

L. 93994 

0.00000 

64 

1.19734 

-.12319 

311.93335    ] 

L. 93994 

0.00000 

65 

.78766 

.24086 

311.90345    ] 

L. 93994 

0.00000 

66 

.93629 

.42102 

311.86805    : 

1.93994 

0.00000 

67 

.85667 

.58661 

311.81974 

L. 93994 

0.00000 

68 

.51153 

.88466 

311.77143    ] 

1.93994 

0.00000 

69 

.28222 

1.07969 

311.69858    : 

1.93994 

0.00000 

70 

.02055 

.98641 

311.62573    ] 

L. 93994 

0.00000 

71 

1.48031 

-1.71404 

312.08997    ] 

t. 93994 

0.00000 

72 

1.39152 

-1.60229 

312.13391    ] 

1.93994 

0.00000 

73 

1.84798 

-1.13047 

312.13249    : 

1.93994 

0.00000 

74 

1.54830 

-1.38059 

312.10237    ] 

1.93994 

0.00000 

75 

1.29640 

-.91163 

312.23789    : 

1.93994 

0.00000 

76 

1.12641 

.08211 

312.20249 

1.93994 

0.00000 

77 

1.00870 

.30507 

312.22936 

1.93994 

0.00000 

78 

1.00001 

.66460 

312.12027 

1.93994 

0.00000 

79 

.83291 

.95973 

312.07196    : 

1.93994 

0.00000 

80 

.00523 

1.42287 

311.99911 

1.93994 

0.00000 

81 

.03148 

1.51117 

311.85733 

1.93994 

0.00000 

82 

0.00000 

0.00000 

312.17803    : 

1.93994 

0.00000 

83 

.66399 

-.76650 

312.22196    : 

1.93994 

0.00000 

84 

1.42141 

-1.0  7144 

312.26589    ! 

1.93994 

0.00000 

85 

1.64888 

-1.39029 

312.40141    ] 

1.93994 

0.00000 

86 

1.58937 

-.80327 

312.53694    ] 

1.93994 

0.00000 

87 

1.44435 

-.60300 

312..56380    .] 

1.93994 

0.00000 

88 

1.58051 

-.48711 

312.59067 

L. 93994 

0.00000 

89 

1.86211 

.02876 

312.48156    J 

1.93994 

0.00000 

90 

1.32287 

.52926 

312.37249    ] 

1.93994 

0.00000 

91 

.66215 

.64019 

312.23071    ] 

1.93994 

0.00000 

92 

0.00000 

o.ooooo 

312.08893    j 

1.93994 

0.00000 

93 

2.24002 

0.00000 

312.48649    ] 

1.93994 

0.00000 

94 

2.44267 

.50977 

312.53042    J 

1.93994 

0.00000 

95 

2.52280 

1.30286 

312.47637    J 

1.93994 

0.00000 

96 

3.32705 

1.09837 

312.42072    ] 

L .93994 

0.00000 

97 

2.17255 

-.36241 

312.55624    ] 

1.93994 

0.00000 

98 

1.82726 

-.53093 

312.58901    J 

L. 93994 

0.00000 

99 

1.75310 

-2.01031 

312.61587    ] 

1.93994 

0.00000 

100 

3.29211 

-2.32488 

312.74861    J 

1.93994 

0.00000 
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101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 
122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 


4.60670 

4.01874 

3.69711 

0.00000 

.28300 

.74772 

1.21581 

1.32064 

1.24548 

1.00834 

.79266 

.48631 

.49643 

0.00000 

0.00000 

.03075 

.22449 

,06382 

.12155 

.26128 

,11070 

.99835 

.55520 

.31419 

0.00000 

0.00000 

.68371 

.81116 

.67603 

.66878 

.82092 

.76593 

.64042 

.71369 

.41212 

0.00000 

.73650 

.43682 

.58113 

.55367 

.32479 

.52871 

.67358 

1.01653 

.70414 

.48196 

0.00000 

.65270 

.77614 

1.17293 

.70239 

.90961 

.97295 

.96060 


1.04277 

.07741 

0.00000 

0.00000 

.48889 

.60665 

.43652 

-.13002 

-.34612 

-.bl676 

1.24483 

1.43706 

1.04975 

0.00000 

1.14761 

.97464 

c73350 

.34417 

.05308 

-.^4627 

-.56344 

-.66416 

1.60756 

3*94423 

4.16435 

0.00000 

.27703 

.12780 

.24770 

-.07094 

-.65052 

-.67154 

-.99916 

1.32918 

2.03504 

1.86247 

0.00000 

.14344 

.08694 

-.34399 

-.36219 

-.74379 

1.63715 

1.15407 

-.99613 

-.79205 

-.77451 

0.00000 

-.02138 

-. 13851 

-.01112 

-.00799 

-.91202 

1.10044 


312.63952 
312.6128b 
312.47110 
312.79494 
312.74039 
312.68664 
312.63119 
312.57554 
312.60831 
312.64108 
312.77332 
312.90656 
312.87992 
312.85326 
312.91643 
312.91436 
312.86030 
312.88562 
312.82997 
312.99186 
313.02463 
313.15737 
313.22575 
313.22967 
313.20323 
313.03792 
313.03535 
313.03377 
313.05909 
313.08440 
313.24629 
313.40818 
313.47656 
313.54494 
313.54906 
313.55318 
313.25487 
313.25280 
313.27812 
313.31793 
313.47962 
313.53156 
313.59994 
313.63879 
313.59946 
313.60358 
313.59936 
313.47183 
313.51164 
313.55145 
313.60320 
313.65494 
313.69379 
313.73265 


.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 
.93994 


0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
O.OOOOu 
0.00000 
0.00000 
0.00000 
0.00000 
O.OOOOu 
0.00000 
0.00000 
0.00000 
0.0  0.0  0  0 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
O.OOOOu 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
0.00000 
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155 

1.03871 

-1.14111 

313.69331    ] 

L. 93994 

0.00000 

156 

.67424 

-1.02613 

313.65398 

1.93994 

0.00000 

157 

.37624 

-.56538 

313.64976    ] 

L. 93994 

0.00000 

158 

0.00000 

0.00000 

313.64554    ] 

L. 93994 

0.00000 

159 

.93249 

0.00000 

313.69447 

L. 93994 

0.00000 

160 

.19689 

-.06986 

313.73428 

L. 93994 

0.00000 

161 

-.50266 

-.13775 

313.68935 

1.93994 

0.00000 

162 

.49075 

-.30251 

313.90407 

L. 93994 

0.00000 

163 

.59507 

.25596 

313.95581 

L. 93994 

0.00000 

164 

.63601 

.34940 

313.78543 

L. 93994 

0.00000 

165 

1.08675 

-.80569 

313.82428 

L. 93994 

0.00000 

166 

1.12593 

-.87021 

313.89788 

L. 93994 

0.00000 

167 

1.24302 

-.66703 

313.85855 

L. 93994 

0.00000 

168 

1.30679 

-.75550 

313.85433 

L. 93994 

0.00000 

169 

1.32625 

-.76688 

313.84295 

L. 93994 

0.00000 

170 

3.99858 

0.00000 

313.91711 

L. 93994 

0.00000 

171 

2.47803 

.32003 

313.87218 

L. 93994 

0.00000 

172 

2.67096 

.39267 

313.62725 

1.93994 

0.00000 

173 

1.02605 

-.95452 

314.04197 

L. 93994 

0.00000 

174 

1.30902 

.56203 

314.25668    ] 

L. 93994 

C. 00000 

175 

.76403 

-.34833 

314.08629    ] 

L. 93994 

0.00000 

176 

1.65642 

.86933 

313.91591 

1.93994 

0.00000 

177 

2.02579 

-.75905 

313.98952 

1.93994 

0.00000 

178 

1.46242 

-.38926 

314.06312    ; 

1.93994 

0.00000 

179 

.81454 

-.04796 

314.05175    ] 

1.93994 

0.00000 

180 

0.00000 

0.00000 

314.04037    ] 

L. 93994 

0.00000 

181 

-.12297 

0-00000 

318.52673    ] 

1.93994 

0.00000 

182 

-.42878 

-.35146 

318.48180    1 

1.93994 

0.00000 

183 

.07468 

.69244 

318.13413 

L. 93994 

0.00000 

134 

.93666 

.64297 

316.74674 

L. 93994 

0.00000 

185 

.75654 

.294  19 

316.96145    : 

L. 93994 

0.00000 

186 

.37283 

.84229 

315.27069    ; 

L. 9 3 994 

0.00000 

187 

.57059 

.10579 

315.10031   : 

L. 93994 

0.00000 

188 

1.20400 

1.78466 

314.46771 

1.93994 

0.00000 

189 

1.29818 

-.03478 

314.54132 

L. 93994 

0.00000 

190 

1.26781 

.23323 

314.52995    ] 

L. 93994 

0.00000 

191 

.32852 

0.00000 

323.13635    ] 

t. 93994 

0.00000 

192 

.33455 

0.00000 

322.78868    ] 

L. 93994 

0.00000 

193 

.34080 

o.oocoo 

322.44101    ] 

1.93994 

0.00000 

194 

.36827 

0.00000 

321.05362    ] 

t. 93994 

0.00000 

195 

.40054 

0.00000 

319.66622    ] 

L. 9 3 994 

0.00000 

196 

.49181 

0.00000 

317.97547    3 

L. 93994 

0.00000 

197 

.63695 

0.00000 

316.28471    ] 

..93994 

0.00000 

198 

.71605 

0.00000 

315.65212    ] 

1.93994 

0.00000 

199 
0 

.80406 

.14802 

315.01952    ] 

L. 93994 

0.00000 

r 
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